（急）如何将VB代码变成DELPHI6.0的？？？

Question

procedure AddURL(const URL: String; const Info: String);
begin
  MessageBox(GetFocus, PChar(Info), PChar(URL), MB_ICONINFORMATION);
end;

Answer 1

Procedure AddURL(URL,Info : String);
begin
  Application.MessageBox(pchar(Info),pchar(URL),MB_OK);
end;

Answer 2

改了可还是出问题
不管怎么改错误总是提示：
  pnetsamp.pas[25]:undeclared identifier:'application'
  pnetsamp.pas[25]:missing operator or semicolon
  pnetsamp.pas[25]:undeclared identifier:'MB_OK'
  netsamp.dpr[6]:could not comlile used unit 'pnetsamp.pas'