procedure TForm1.FormCreate(Sender: TObject); var buf: array[0..255] of char; begin ExpandEnvironmentStrings(PChar(Label1.Caption), buf, 256); Label2.Caption:=buf; end;