[[xEsk]]

Puedes aprovechar lo que ha puesto D&W pero metiéndolo en el evento "OnChange" del TEdit.

Ejemplo:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Label1.caption:=Edit1.text;  
end;

Saludos.