Nete codigo não tem nada de errado .... melhor postar o codigo inteiro, ou o erro abraço Esse é o codigo,porque na hora que vo da run ou compilar da erro procedure TVmEditor.Abrir1Click(Sender: TObject);
begin
If opendialog1.Execute then
memo1.Lines.LoadFromFile(opendialog1.filename);
memo1.SetFocus;
end;
procedure TVmEditor.Salvar1Click(Sender: TObject);
begin
If Savedialog1.Execute then
memo1.lines.SaveToFile(filename);
end;
procedure TVmEditor.Sair1Click(Sender: TObject);
begin
Halt;
end;
procedure TVmEditor.Recortar1Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;
procedure TVmEditor.Copiar1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TVmEditor.Colar1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;
procedure TVmEditor.Selecionartudo1Click(Sender: TObject);
begin
memo1.SelectAll;
end;
procedure TVmEditor.Fontes1Click(Sender: TObject);
begin
If fontdialog1.Execute then
memo1.Font:=fontdialog1.font;
end;
procedure TVmEditor.Cores1Click(Sender: TObject);
begin
If colodialog.execute then
memo1.Color:=colordialog1.color;
end;
procedure TVmEditor.Direita1Click(Sender: TObject);
begin
memo1.alignment:=tarightjustify;
end;
procedure TVmEditor.Esquerda1Click(Sender: TObject);
begin
memo1.alignment:=taleftjustify;
end;
procedure TVmEditor.Centralizado1Click(Sender: TObject);
begin
memo1.alignment:=tacenter;
end;
procedure TVmEditor.Calculadora1Click(Sender: TObject);
begin
If Winexec('c:\windows\calc.exe',sw_shownormal)=2 then
showmessage('Arquivo não encontrado')
end;
procedure TVmEditor.Sobre1Click(Sender: TObject);
begin
MessageDlg('Editor de texto - versão 1.0',mtInformation,[mbok],0)
end;
procedure TVmEditor.SpeedButton1Click(Sender: TObject);
begin
If opendialog1.Execute then
Memo1.Lines.loadfromfile(opendialog1.filename);
memo1.SetFocus;
end;
procedure TVmEditor.SpeedButton3Click(Sender: TObject);
begin
If Savedialog1.Execute then
memo1.lines.SaveToFile(Savedialog1.filename);
end;
procedure TVmEditor.SpeedButton2Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;
procedure TVmEditor.SpeedButton5Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TVmEditor.SpeedButton7Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;
procedure TVmEditor.SpeedButton6Click(Sender: TObject);
begin
If Winexec('c:\windows\calc.exe',sw_shownormal)=2 then
showmessage('Arquivo não encontrado')
end;
end.
