Código Delphi [-] var Texto: string; begin ... Texto := Edit1.Text; end;
var Texto: string; begin ... Texto := Edit1.Text; end;