Stringgrid - GERADE/UNGERADE ZEILEN

[aaron]

Ich habe ein Stringgrid in dem in einer Spalte Domainnamen stehen die ich überprüfen will.
Wenn ich das so mache dann dauert das ewig:

Delphi-Quellcode:

procedure TForm.Button5Click(Sender: TObject);
var
Inhalt_gerade,Inhalt_ungerade:String;

begin
  fCancel := False;
  while (lCount < advstringgrid1.RowCount) and (not fCancel) do
   begin
     Application.ProcessMessages();
           -> Inhalt_gerade:= advstringgrid1.Cells[0, lCount]; // ALLE GERADEN ZEILEN
           -> Inhalt_ungerade.text:= advstringgrid1.Cells[0, lCount]; // ALLE UNGERADE ZEILEN
      inc(lCount);
      advStringGrid1.row:=lCount;
      Application.ProcessMessages();
      Memo1.text := IdHttp1.get('http://www.whois.net/whois_new.cgi?d='+Inhalt_gerade+'&tld=com');
      Memo2.text := IdHttp1.get('http://www.whois.net/whois_new.cgi?d='+Inhalt_ungerade+'&tld=com');
      ...
    end;
end;

Wie kann ich jede gerade Zeile an Memo1 übergeben und jede ungerade Zeile des Stringgrids an Memo2?
Will einfach nur das die Suche schneller geht.

Gruss
Aaron