из с ++ в Delphi

[Excellion]

Здравствуйте кому не сложно переведите:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a = Edit1->Text;
char *b=a.c_str();
HWND hWnd=FindWindow(NULL,b);
if (hWnd)
{
char buff[100];
GetClassName(hWnd,buff,100);
ShowMessage(buff);
}
}

[Пепел Феникса]

может было проще сразу код на Делфи искать?
я делаю так:

procedure TForm1.Button1Click(Sender:TObject);
var s:string;
     h:THandle;
begin
 h:=FindWindow(nil,PChar(Edit1.Text));
 if h<>0 then
  begin
   SetLength(s,255);
   SetLength(s,GetClassName,h,@s[1],255));
   ShowMessage(s);
  end;
end;

функциональность аналогичная.