---

Er der en som vel fortælle mig hvad jeg gør galt i denne procedure.

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Bed1 : TIniFile;
Navn : String;
Begin
// Læser cirklens LiljeNavn og viser billed og tilhørende tekst.
Bed1 := TIniFile.Create(ExtractFilePath(ParamStr(0))+ '\'+'Bed1' + '.Ini');
CirkelNr := CirkelNummer(X,Y); //Går til CirkelNummer
Navn := Bed1.ReadString(IntToStr(CirkelNr),'CirkelNavn','');
Edit2.Text := Navn;
Edit3.Text := IntToStr(CirkelNr);
Bed1.Free;
Image2.Picture.LoadFromFile('C:\Liljer\Navne\' + Navn + '.JPG');
Bed1.Free;
End;

Der er ingen kompili fejl, men ved kørset kan den ikke finde filen
('C:\Liljer\Navne\' + Navn + '.JPG');
Edit2 og Edit3 får tildelt de rigtige verdier.

På forhån tak for et svar.
mvh Henning