1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

begin
try
if printdialog1.execute then
richedit1.text := diagnose.text;
richedit1.print := ('Diagnose');
end;
except
showmessage ('Fehler beim Drucken');
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
  try
    if printdialog1.execute then
      richedit1.text := diagnose.text;
    richedit1.print := ('Diagnose');
  end; // 'EXCEPT' oder 'FINALLY' erwartet, aber 'END'

  except // Anweisung erwartet, aber 'EXCEPT' gefunden
  showmessage ('Fehler beim Drucken');
end;
end;  // '.' erwartet, aber ';' gefunden					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

begin
  try
    if PrintDialog1.Execute then
    begin
      RichEdit1.Text := Diagnose.Text;
      RichEdit1.Print := ('Diagnose');
    end;
  except
    ShowMessage('Fehler beim Drucken');
  end;
end;					

 
6:

{ ... }
RichEdit1.Print('Diagnose');					

1:

printdialog1.execute;					

1:
2:

if PrintDialog1.Execute then // Execute ist eine Funktion, die True zurückgibt, falls auf OK geklickt wurde
  RichEdit1.Print('Diagnose');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Speichern2Click(Sender: TObject);
begin
  try
    if  berg = True then
        richedit1.lines.SaveToFile (savedialog1.FileName);
        sicher := True;
  except
     knopf := Application.MessageBox('Fehler beim Speichern der Datei','Fehler',0+16);
     sicher := False;
     end;
  try
      if  SaveDialog1.Execute then
          richedit1.lines.SaveToFile (savedialog1.FileName);
          sicher := True;
          berg := True;// die Variable die geändert wenn man Speichert^^ mir ist einfach kein Name eingefallen^^
  except
         knopf := Application.MessageBox('Fehler beim Speichern der Datei','Fehler',0+16);
         sicher := False;

     end;
     end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

type 
  TDeinForm = class(TForm)
  private
    FFilename: string;
  ...
  end;

...

procedure TDeinForm.SpeichernClick(Sender: TObject);
begin
  //Dateiname ist bereits vorhanden
  if Length(FFilename) > 0 then
    Richedit1.Lines.SaveToFile(FFilename)
  else
    if SaveDialog1.Execute then
      begin
        //Dateinamen merken
        FFilename := SaveDialog1.Filename;
        Richedit1.Lines.SaveToFile(FFilename);
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Speichern2Click(Sender: TObject);
begin
  try
    if berg then // if berg = True then ist FALSCH
      richedit1.lines.SaveToFile (savedialog1.FileName);
    sicher := True;
  except
    knopf := Application.MessageBox('Fehler beim Speichern der Datei','Fehler',0+16);
    sicher := False;
  end;
  try
    if SaveDialog1.Execute then // der dialog wird immer angezeigt, der wird ja nicht nur angezeigt, wenn "not berg"
      richedit1.lines.SaveToFile (savedialog1.FileName);
    sicher := True; // wird immer gesetzt, ist nicht im if
    berg := True;// die Variable die geändert wenn man Speichert^^ mir ist einfach kein Name eingefallen^^
  except
    knopf := Application.MessageBox('Fehler beim Speichern der Datei','Fehler',0+16);
    sicher := False;
  end;
end;

end.					

1:
2:
3:
4:
5:

begin
if fontdialog1.execute then
...// und hier?
end;
end.					

1:
2:
3:
4:
5:

// Aktuelle Font dem Font-Dialog zuweisen, damit die Eigenschaften schon drinstehen
FontDialog1.Font.Assign(RichEdit1.Font);

// FontDialog ausführen, und bei Erfolg (Rückgabe True) neue Font dem RichEdit zuweisen
if FontDialog1.Execute then RichEdit1.Font.Assign(FontDialog1.Font);