RR Detector - Delphi

Witam, potrzebuję Waszej pomocy. Jako że programowanie nie jest moją mocną stroną mam pewien problem z napisaniem pewnego programu.

Mianowicie... Dostałem temat RR Detector czyli "Wykrywanie ruchomych odwzorowań nazwa_hosta -> IP. ". Ma to być desktopowa aplikacja, napisana w języku delphi. Musi znajdować się 1 Edit box, w którym wpisuje się nazwę hosta oraz stringgrid w którym pokazywane będą wyniki. Oczywiście dobrze by było jakby w owym stringgridzie pokazane były wszystkie IP, a nie jedno. Ponadto musi być możliwość do zapisania wyników do bazy danych Access za pomocą standardu ADO (ale z tym sobie poradzę).

Tutaj pojawia się moje pytanie za pomocą tego programu uzyskać ruchome odwzorowania, jakiego komponentu użyć, może jakiejś specjalnej komendy?

Bardzo proszę o Waszą pomoc

Pozdrawiam, Yeti16

PS, mam nadzieję, że ten temat nadaje się do tego działu :)

hmmmm jakoś tak:

//dodaj do uses Winsock

//funkcja zwraca liste adresow IP (lekko przerobiona funkcja znaleziona w Google)
function getIPs(host: string): TStrings;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  I: Integer;
  GInitData: TWSAData;
begin
  WSAStartup($101, GInitData);
  Result := TStringList.Create;
  Result.Clear;
  phe := GetHostByName(PAnsiChar(host));
  if phe = nil then Exit;
  pPtr := PaPInAddr(phe^.h_addr_list);
  I    := 0;
  while pPtr^[i] <> nil do
  begin
    Result.Add(inet_ntoa(pptr^[i]^));
    Inc(I);
  end;
  WSACleanup;
end;

//przykład użycia
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStrings;
begin
  Lista:= getIPs(Edit1.Text); //w Edit1 nazwa hosta
  try
  ListBox1.Items.Assign(Lista);
  finally
  Lista.Free;
  end;
end;

To dostosować do swoich potrzeb StringGrid i zapis do bazy to chyba potrafisz...