Изменение текста в caption api формы дельфи

program ZAWindow;
 
uses
  Windows,
  Messages,
  SysUtils,
  AsmFunctions in 'AsmFunctions.pas';
 
//{$R *.res}
 
// ФУНКЦИИ, ПРОЦЕДУРЫ, ПЕРЕМЕННЫЕ, КОНСТАНТЫ и т.д.
Const
  // Названее классов элементов упавления
  nm_Button: PAnsiChar = 'BUTTON';
  nm_ComboB: PAnsiChar = 'COMBOBOX';
  nm_TextE: PAnsiChar = 'EDIT';
  nm_ListB: PAnsiChar = 'LISTBOX';
  nm_Static: PAnsiChar = 'STATIC';
  nm_ScrollB: PAnsiChar = 'SCROLLBAR';
 
Var
  Instance: HWnd; // Handle нашего модул
  WindowClass: TWndClass; // Класс окна
  Handle: HWnd; // Дескриптор окна
  msg: TMsg; // Сообщения
  FlagsStyleWindow: Cardinal; // Флаги стилей создаваемого окна
  FlagsWindow: Cardinal; // Флаги стилей создаваемого окна
  Moving: Boolean; // Зажата левая кнопка мыши
  CurPos, tmp: TPoint; // Позиция курсора
  cp, temp: PAnsiChar;
  // ЕЛЕМЕНТЫ УПРАВЛЕНИЯ
  btnMessage, sttLabel, txtText: HWnd;
 
 
  // ПРОЦЕДУРА ВЫХОДА ИЗ ПРОГРАММЫ
  Procedure DoExit;
  begin
    Halt;
  end;
 
  Procedure btnMessageClick;
  Var
    t: String;
  begin
    t := '2*5='+IntToStr(fImul(2, 5));
    t := t+' и 666+13='+IntToStr(fAdd(666, 13));
    SetWindowText(sttLabel, PAnsiChar(t));
  end;
 
  // ФУНКЦИЯ ОБРАБОТКИ СОБЫТИЙ WINDOWS
  Function WindowProc(HWnd, msg, WParam, LParam: LongInt): LongInt; stdcall;
  begin
    // Exit
    If msg = wm_Destroy then DoExit;
    if msg = wm_Activate then Moving := False;
    If msg = wm_KeyDown then
      begin
        If wparam = VK_Escape then DoExit;
      end;
    If msg = WM_LBUTTONDOWN then
      begin
        Moving := True;
        GetCursorPos(CurPos);
      end
    Else if msg = WM_LBUTTONUP then
      Moving := False
    Else if msg = WM_MOUSEMOVE then
      begin
        If Moving then
          begin
            GetCursorPos(tmp);
 
            SetWindowPos(Handle, 0,
              (CurPos.X-tmp.X),
              (CurPos.Y-tmp.Y),
              250, 200, 0);
          end;
      end;
    If msg = wm_Command then
      begin
        If lParam = btnMessage then
          btnMessageClick;
      end;
    If lParam = txtText then // ВОТ ЭТОТ УЧАСТОК ВЫЗВАЛ СОМНЕНИЯ!!!!!!!!!!!!!!!!!!
      begin
        GetWindowText(txtText, temp, GetWindowTextLength(txtText));
        SetWindowText(sttLabel, temp);
      end;
    Result := DefWindowProc(HWnd, msg, WParam, LParam);
  end;
 
// ВЫПОЛНЕНИЕ ПРОГРАММЫ
begin
  // Получим Handle Модуля
  Instance := GetModuleHandle(nil);
 
  // "ЗАМУТИМ" структуру WindowClass
  WindowClass.style := CS_Hredraw or CS_VRedraw;
  WindowClass.lpfnWndProc := @WindowProc;
  WindowClass.hInstance := Instance;
  WindowClass.hbrBackground := COLOR_WINDOWFRAME;
  WindowClass.lpszClassName := 'DEATH';
  WindowClass.hCursor := LoadCursor(0, idc_Arrow);
  WindowClass.hIcon := LoadIcon(0, '~.ico');
 
  // Регистрация нового класса
  RegisterClass(WindowClass);
 
  // Создаём окно
  FlagsStyleWindow := ws_EX_AppWindow {or ws_EX_Clientedge or ws_EX_DlgModalFrame};
  FlagsWindow := ws_Popup or ws_SysMenu or ws_Border or ws_Caption or ws_MinimizeBox;
  cp := 'The Necronomicon';
  //---
  Handle := CreateWindowEx(FlagsStyleWindow, 'DEATH', CP, FlagsWindow, 256, 256, 250,
    200, 0, 0, Instance, nil);
 
  // Создаём Элементы Управления
  btnMessage := CreateWindow(nm_Button, 'Поривет, Ктулху!', ws_Child or ws_Visible
  or bs_DefPushButton, 10, 10, 124, 22, Handle, 0, hInstance, nil);
 
  sttLabel := CreateWindow(nm_Static, 'Надпись', ws_Child or ws_Visible
  or BS_NOTIFY, 10, 34, 150, 22, Handle, 0, hInstance, nil);
 
  txtText := CreateWindow(nm_TextE, 'Text Editor', ws_Child or ws_Visible or ws_Border
  or BS_TEXT, 10, 60, 150, 21, Handle, 0, hInstance, nil);
 
  // Отобразим созданное окно
  ShowWindow(Handle, sw_Show);
  UpdateWindow(Handle);
 
  // Здесь можно проводить инициализацию...
  Moving := False;
  CurPos.X := 0; CurPos.Y := 0;
 
  // Цикл обработки системных сообщений
  While (GetMessage(msg, 0, 0, 0)) do
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
    end;
 
end.

Procedure ChangeDelphi (NewName:String); // Передаем новое название например Дельфи
Var Wd:HWND;
       Nm:Array[0..255] of Char
       St : String;
       I:Integer;
Begin
  Wd:= FindWindow('TAppBuilder',Nil); // Находим заголовок по классу окна Delphi
 If Wd<=0 then Exit; // Такого окна нет.
GetWindowText(Wd,Nm,255); // Считываем заголовок окна
St:=String(Nm);      // Переводим в строку
I:=Pos('Delphi',St); // Находим положения заголовка
If I>0 then // Если слово Дельфи есть в заголовке
 Begin
  Delete(St,i,Lenght('Delphi'); // Удаляем
  Insert(NewName,St,i); // Вставляем
 SetWindowText(Wd,Pchar(St)); // Отправляем новый заголовок окну.
 End; // Все
end;