Save-Probleme

[parethol]

Hallo zusammen,

ich brauche ganz dringend eure Hilfe. Ich muss ein kleines Programm bis morgen Abend releasen. Ich hatte es eigentlich so weit, dass alles funktionierte. Nun ist im letzten moment eine neue Anforderung dazu gekommen und dabei ein Problem aufgetreten. Das Program soll ein paar Daten sammeln und danach in ein .csv File abspeichern, damit es vom Enduser in ein Excel importiert werden kann (nicht mein Vorschlag, die zuständige Person wollte dies so....)

Vorher ging es wie es in der Syntax steht:

Code:

 //-------------------------Save----------------------------------
   begin      //
   List := TStringList.Create;
    try
    data:= Form1.Label5.Caption + ';'+TimeToStr(Now())+';'+ form1.Edit2.Text + ';' + selftest + ';' + form1.Edit1.Text + ';' + rad + ';' + sur + ';' + light + ';'+ ics + ';' + index + ';' + transf1 +';' + transf2 + ';' + transf3 + ';' + interrupt + ';' + emo + ';' + door+ ';' +  move + ';' + call+ ';' + '';
// variabeln

 
     List.LoadFromFile(GetCurrentDir + '\test.csv');
     List.Add(data);
     List.SaveToFile(GetCurrentDir + '\test.csv');
     form3.Visible:=false;
     form4.visible:=true;
 
    finally
     List.Free;
   end;        //
 end;
 end;
end;
end;

Folgende Fehlermeldung tritt auf:
Im Projekt prog.exe ist eine Exception der Klasse EFCreateError aufgetreten. Meldung "C:/progsys/test.csv" kann nicht erstellt werden. Zugriff verweigert. Prozess wurde angehalten. Mit einzelnen Anweisungen oder Start fortsetzen.


Danke für eure rasche Hilfe und Antwort.

Oli