Delphi-Quellcode:
procedure TAdd.BAddStartClick(Sender: TObject);
var
main1: TForm;
//hier war mal quellen1 definiert
begin
if (EBilderDir.text <> '') AND (ETumbnailsDir.text <> '')
AND (EBilderTitel.text <> '') then
begin
TQuellen(Quellen1).Edit1.Text := 'ef';
end
else
showmessage('Alle Felder ausfüllen...');
end;
Du musst musst quellen1 aus der procedure rausnehmen sonst kommst du nicht an die globale Quellen1 ran