Text speichern

[vip11]

ich hab eifach geschrieben:

Code:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
CreateDir('Notizen');
end;

.
.
.

procedure TForm1.Button1Click(Sender: TObject);
begin
Text.lines.SaveToFile('Notizen\Notiz1.txt');
end;