VB转delphi代码

[a8196041]

大家帮忙转一下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

[a8196041]

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

[CCC的]

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;