Помогите перевести код из Visual Basic в Delphi

[bilibian]

Вот собственно сам код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim skype As New Skype
        skype.Attach()

        Dim friends As IUserCollection = skype.SearchForUsers("user")

        If friends.Count >= 1 Then
            friends(1).BuddyStatus = TBuddyStatus.budPendingAuthorization
        Else
            MsgBox("Skype User Does Not Exist")
        End If
    End Sub

Сумел написать так, даже не знаю правильно или нет.

procedure TForm1.Button3Click(Sender: TObject);
var friends:IUserCollection;
begin

friends:=skype1.SearchForUsers('user');
if friends.Count >= 1 then //friends[1].BuddyStatus := TBuddyStatus.budPendingAuthorization;  здесь вообще не понятно как записать

end;