#pas
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
Panel1.Visible := True;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
Panel1.Visible := False;
end;