Mehrere Rückgabewerte in verschieden Textfeldern

[Ati]

Hallo zusammen,

erstmal "Sorry" für diese kuriose Überschrift aber mir viel nichts besseres ein. Nun zu meinem Problem.
Ich frage in einer Prozedur alle lokalen IP´s ab. Diese IP´s möchte ich aber auch in einer Datenbank speichern, dazu wollte ich mal Testweise diese Ip´s in verschiedenen Labels anzeigen lassen. Dies klappt aber nicht so recht, da mir auch der logische Ansatz dazu fehlt, wie dies zu bewerkstelligen ist. Hier mal der Ursprüngliche Code der Prozedur:

Delphi-Quellcode:

function GetLocalIPs(const aItems:TStrings):Boolean;
type  PPInAddr= ^PInAddr;
var  wsaData: TWSAData;
     HostInfo: PHostEnt;
     HostName: Array[0..255] of Char;
     Addr: PPInAddr;
begin
  Result:=False;
  //Lines.Clear;
  if WSAStartup($0102, wsaData)=0 then
  try
    if gethostname(HostName, SizeOf(HostName)) = 0 then
      Begin
      HostInfo:= gethostbyname(HostName);
      if HostInfo<>nil then Begin
      Addr:=Pointer(HostInfo^.h_addr_list);
      if (Addr<>nil) AND (Addr^<>nil) then
      Repeat
        aItems.Add('IP:                        '+StrPas(inet_ntoa(Addr^^)));
        inc(Addr);
      Until Addr^=nil;
      end;
    end;
    Result:=True;
    finally
    WSACleanup;
    end;
end;

Aufruf mit:
GetLocalIPs(listbox1.Items) Wie bekomme ich nun die Ip´s einzeln angezeigt?? Ich hoffe ich konnte mein Problem verständlich erklären.

Danke
Ati