Criando Editor de Texto Delphi 7

NOVO e coloque o código:
Memo1.Clear;
ABRIR e coloque o código:
if Opendialog1.Execute then
begin
memo1.Lines.LoadFromFile(opendialog1.FileName);
memo1.SetFocus;
end;

SALVAR e coloque o código:
if Savedialog1.Execute then
begin
memo1.Lines.SavetoFile(Savedialog1.FileName);
memo1.SetFocus;
end


Èverton