[[José Luis Garcí]]

y otra

Código Delphi [-]
procedure TFXPAF.SBEscribirNotaClick(Sender: TObject);
//------------------------------------------------------------------------------
//******************************************************************[ Nota ]****
//------------------------------------------------------------------------------
var VarSText:string;
begin
   VarSText:=Memo2.Lines.Text;
   Memo2.Lines.Text:=InputMemo('Nota','Escriba su nota',VarSText);
end;