Msn contact list

[Razor]

Initilized but still same error and this gets me thinking


Even if i change the line order still the same error

Delphi-Quellcode:

 
if MSNMyContact.Status=status then BEGIN
for v_Count := 0 to MSNMyContacts.Count - 1 do
MSNMyContact := (MSNMyContacts.Item(v_Count) as IMessengerContact);
result:= MSNMyContact.FriendlyName +  '  ' +MSNMyContact.FriendlyName;

Delphi-Quellcode:

 function contactslist(status:MISTATUS):string;
  var
  MSNMessenger:  IMessenger;
  MSNMyContacts: IMessengerContacts;
  MSNMyContact:  IMessengerContact;
  v_Count: Integer;
  begin
  MSNMessenger := MessengerAPI_TLB.CoMessenger.Create;
  MSNMyContacts :=  (MSNMessenger.MyContacts as IMessengerContacts);


 for v_Count := 0 to MSNMyContacts.Count - 1 do
 begin
 if MSNMyContact.Status=status then BEGIN

 MSNMyContact := (MSNMyContacts.Item(v_Count) as IMessengerContact);
 result:= MSNMyContact.FriendlyName +  '  ' +MSNMyContact.FriendlyName;


end;
end;
end;