Incompatible types: 'String' and 'PAnsiChar', как привести к одному типу?

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
hWindow: THandle;
  idProcess: DWORD;
  kbl: Cardinal;
  s:string;
  MonolitHandle: HWND;
  MonolitCaption: string;
l,i,j: integer;
Const
  USKeyboard = 1033;
  RusKeyboard = 1049;
  MaxCaptionSize: integer = 88;
begin
i:=0;
j:=strtoint(Edit1.Text);
 
j:=j*10;
 
 
ShellExecute(Handle, nil, 'http://www.odnoklassniki.ru/', nil, nil, SW_RESTORE);
        sleep(3000);
 
        SetLength(MonolitCaption, MaxCaptionSize);
  MonolitHandle := GetForegroundWindow();
  GetWindowText(MonolitHandle, PChar(MonolitCaption), MaxCaptionSize);
         hWindow:=FindWindow(MonolitCaption);
...

PChar('http://www.odnoklassniki.ru/')

ShellExecute(Handle, nil, PChar('http://www.odnoklassniki.ru/'), nil, nil, SW_RESTORE);
        sleep(3000);
 
        SetLength(MonolitCaption, MaxCaptionSize);
  MonolitHandle := GetForegroundWindow();
  GetWindowText(MonolitHandle, PChar(MonolitCaption), MaxCaptionSize);
      hWindow:=FindWindow(MonolitCaption);

hWindow:=FindWindow(nil,MonolitCaption);

hWindow:=FindWindow(nil, MonolitCaption);

hWindow:=FindWindow(nil, MonolitCaption,nil, nil);

  label3.Caption:=MonolitCaption;

hWindow:=FindWindow(nil, PChar(MonolitCaption));