Преобразование кода С++ на Delphi

// Пример вставки фрагмента.
// Если имеется выделение, оно будет заменено фрагментом текста,
// если выделение отсутствует, фрагмент будет добавлен к концу текста.

int selFirst = 0, selLast = 0;
SendDlgItemMessage ( hDlg,   IDC_EDIT1, EM_GETSEL,
                    (WPARAM) &selFirst, (LPARAM) &selLast );
if(selFirst == selLast)
{
    // Получим длину текста для многострочного окна редактирования
    selFirst = selLast = lstrlen(
              *(char**) SendDlgItemMessage (
                            hDlg, IDC_EDIT1,
                            EM_GETHANDLE, 0, 0 ) );
}
SendDlgItemMessage ( hDlg, IDC_EDIT1, EM_SETSEL, selFirst, selLast );
SendDlgItemMessage ( hDlg, IDC_EDIT1, EM_REPLACESEL, TRUE, (LONG)szReplace );

var
  setFirst, setLast: Integer;
  str: Pwidechar;
  ch: WideString;
  int: integer;
begin
  setFirst := 0;
  setLast := 0;
  SendDlgItemMessage(Handle, Memo12.Handle, EM_GETSEL, wparam(@setFirst), lparam(@setLast));
  if setFirst = setLast then begin
    ch := WideString(SendDlgItemMessage(Handle, Memo12.Handle, EM_GETHANDLE, 0, 0));
    setFirst := lstrlen(@ch);
    setLast := setFirst;
  end;
  SendDlgItemMessage(Handle, Memo12.Handle, EM_SETSEL, setFirst, setLast);
  str := Pwidechar('Вставляемый текст');
  SendDlgItemMessage(Handle, Memo12.Handle, EM_REPLACESEL, 0, integer(str));
end;