Fehlermeldungen für Benutzer bauen

[Nils_13]

Du hast wahrscheinlich vor dem else noch ein end; stehen, entferne das Semikolon und es sollte funktionieren.

Delphi-Quellcode:

procedure TForm1.btnfladenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then 
  begin
    if FileExists(OpenDialog1.Filename) then
      lbxFeldnamen.Items.LoadFromFile(OpenDialog1.FileName);
  end;
end;