Textedittutorial Problem

[deinmeister]

thx das hat geholfen .... und nun zum nexten problem

CODE-------------
procedure TMainform.Speichern1Click(Sender: TObject);
begin
if OpenDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(OpenDialog1.Filename);
end else
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
end else
begin
if SaveDialog1.Execute then
begin
if SaveDialog1.Filename<>'' then
begin
Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
OpenDialog1.Filename:='';
end;
end;

procedure TMainform.Drucken1Click(Sender: TObject);
begin
Richedit1.Print('');
end;

procedure TMainform.Beenden1Click(Sender: TObject);
begin
MainForm.Close;
end;
--------CODE

bei der rotmarklierten stelle meint delphi "anweisung erwartet, aber PROCEDURE gefunden"
.. was seltsam ist, da es sonst auch klappte.....