---

Hjælp til følgende vel være dejligt.
Problemet er at billedet først vises i Image2 når muse kørseren forlader
cirklen.
Teksten vises korekt når kørseren rammer en cirkel, blinker dog indtil
kørseren forlader cirklen, men det kan jeg leve med.
Kørseren bliv godt nok til et + når cirklen rammes.

//******************************************************************************
// Når kørseren rammer en cirkel vises navn, billed, tekst og kørser bliver
et kors.
//******************************************************************************
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y:
Integer);
Var
Haven : TIniFile;
T, Antal, A, B : Integer;
SNavn : String;
begin
Haven := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\'+'Haven'+'.INI');
Antal := Haven.ReadInteger('Plads','Antal',0);

For T := 1 To Antal Do
Begin
A := Haven.ReadInteger(IntToStr(T),'XPos',X);
B := Haven.ReadInteger(IntToStr(T),'YPos',Y);
If sqrt(sqr(X-A)+sqr(Y-B)) <= 4 Then
Begin
Cursor := crCross;
SNavn := Haven.ReadString(IntToStr(T),'Navn','');
Break;
End
Else
Begin
Cursor := crDefault;
End;
End;

If Cursor = crCross Then
Begin
For T := 1 To Antal Do
Begin
A := Haven.ReadInteger(IntToStr(T),'XPos',X);
B := Haven.ReadInteger(IntToStr(T),'YPos',Y);
If sqrt(sqr(X-A)+sqr(Y-B)) <= 4 Then Navn := Navn;
Image2.Picture.LoadFromFile('C:\Planter\Navne\'+ SNavn + '.JPG');
Memo1.Lines.LoadFromFile('C:\Planter\Navne\'+ SNavn + '.TXT');
Edit1.Text := SNavn;
End;
End;
Haven.Free;
end;

En løsning vel absålut give en bedre nattesøvn.
m.v.h.
Henning
Bruger XP og Delphi7