Oh Leute es hat anscheinend daran gelegen das ich nicht
Code:
procedure TForm4.schreibetextfile;
begin
end;
sondern
Code:
procedure schreibetextfile;
begin
end;
geschrieben habe. Dummer Fehler Tschuldigung das ich eure Zeit verschwendet habe.
Klappt jetzt. Danke für eure Hilfe.