Bitte sehr, so gehts in jedem Fall:
Delphi-Quellcode:
program MeinProgramm;
uses
Dialogs,
Sysutils,
Inifiles,
Forms,
Unit1 in 'Unit1.pas' {Form1};
var Dateien : Tinifile;
begin
if fileexists('C:\Test\test.txt') then
begin
try
deletefile(Pchar('C:\Test\test.txt'));
except
showmessage('Datei nicht gefunden!');
end;
end ELSE
begin
try
CreateDir('C:\Test');
Dateien := Tinifile.Create('C:\Test\test.txt');
Dateien.WriteString('TEST','TEST','hallo');
Dateien.Free;
except
end;
end;
// Tue dies und das..
// und später...
Application.Initialize;
Application.CreateForm(TForm1, Form1); // Jetzt kommt das Form
Application.Run;
end.