1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

begin
type
procedure FormCreate(Sender: TObject);
var
Liste: TStringlist;
procedure TForm1.FormCreate(Sender: TObject);
begin
    Liste := TStringlist.Create;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
    if StrToInt(edit1.text) > 0 then Liste.add('TEXT' + edit1.Text);
    Liste.SaveToFile(ExtractFilePath(ParamStr( 0 )) + 'delphi.dat');
end;
end.