[__cadetill]

no entiendo muy bien lo que pretendes, pero.... no te sirve algo así?

procedure TForm1.Button1Click(Sender: TObject);
var
  str : string;
begin
  str := Edit1.Text;
end;

Osea, puedes acceder al TEdit sin más problemas