[The Shadow]

Код:

var
MyVal, MyVal2: String;
...
procedure TForm1.Edit1Change(Sender: TObject);
begin
MyVal:=Edit1.Text; //Записываем в переменную
MyVal2:=MyVal; //Записываем из переменной в другую
Label1.Caption:=MyVal2; {MyVal} //Выводим значение в Label
end;