1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.saveClick(Sender: TObject);
var Fs: TFileStream;
    Fn: String;
    Text : String;
begin
  SaveDialog1.Execute;
  Fn := SaveDialog1.FileName;
  If FileExists(Fn) Then
    Fs := TFileStream.Create(Fn, fmopenwrite)
  else begin
    if Messagedlg('Die Datei existiert nicht. Möchten sie sie anlegen?', mtConfirmation  , [mbyes, mbno],0) = mryes then begin
      Fs := TFIlestream.Create(Fn, fmcreate);
      Fs.Free;
      Fs := TFileStream.Create(Fn, fmopenwrite);
    end
    else exit;
  end;
  Text := Edit1.Text;  //das klappt natürlich
  Fs.Write(Text, SizeOf(Text));  // aber hier scheint es nicht mehr zu klappen
  Fs.Free;
end;

procedure TForm1.openClick(Sender: TObject);
var Fs: TFileStream;
    Fn: String;
    Text: String;
begin
  OpenDialog1.Execute;
  Fn := Opendialog1.Filename;

  Fs := TFileStream.Create(Fn, fmopenread);
  Fs.Seek(0, SoFromBeginning);
  Fs.Read(Text, SizeOf(Text));
  Fs.Free;

  Label1.Caption := Text;
end;					

1:
2:
3:

  if (FileExists('bla') or
                (MessageDlg(bla) = mrYes) then begin
               FS := TFileStream.Create(Fn, fmCreate of fmShareDenyWrite);