#pas
procedure BlaBlaBla;
var 
  txt:string; handle:HWND;
begin
  txt := 'test-test-test';
  handle := GetHandle; // GetHandle - какая-либо пользовательская функция
  if handle <> 0 then
    SetWindowText(handle, PChar(txt));
  else
    MessageBox(.....);
end;