Delphi - Membuat File

ini adalah source code program delphi untuk membuat file :

procedure TForm1.Button2Click(Sender: TObject);

var
        fileku : TextFile;
        Filenya : String;
begin
Filenya:='C:\Testing.txt';
 if fileexists(Filenya) then
 deletefile(Filenya);

 assignfile(fileku,Filenya);
 rewrite(fileku);
 writeln(fileku,'TESTTESTTESTTESTTEST');

 closefile(fileku);
end;

Silahkan disesuaikan..