VB转delphi代码

Question

大家帮忙转一下delphi代码
Private Sub Command1_Click()
WebBrowser1.Navigate "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text '
WebBrowser1.Stop '
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "tencent://buddy/?Menu=Yes&type=101&peeruin=" & Text1.Text '
WebBrowser1.Stop '
End Sub
Private Sub Command3_Click()
End
End Sub

Answer 1

Navigate "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text ' 
这里怎么转成delphi的呀  大家帮忙了

Answer 2

procedure Command1_Click(sender: TObject);
begin
  WebBrowser1.Navigate('Tencent://Message/?Menu=YES&Exe=&Uin='+Text1.Text);
  WebBrowser1.Stop; 
end;procedure Command2_Click(sender: TObject);
begin
  WebBrowser1.Navigate('tencent://buddy/?Menu=Yes&type=101&peeruin='+Text1.Text);
  WebBrowser1.Stop; 
end;procedure Command2_Click(sender: TObject);
begin
  //
end;