Loop...

Hej,

Jeg har følgende kode som trækker et navn ud af en database og oprettet det som et ikon i min Listview:

procedure TForm2.Button2Click(Sender: TObject);
begin
D1.CommandText := 'SELECT * FROM Virksomheder';
D1.Open;
Kartoteksliste.Items.Add.Caption := D1.FieldByName('Kontaktperson').AsString;
end;

Men da jeg er absolut nybegynder vil jeg lige høre hvordan man laver en loop funktion? Altså det som i ASP svarer til f.eks.:

Do While Not rs.eof
' udskriv noget her
rs.movenext
Loop

Derudover er jeg meget interesseret i Delphi begynderartikler på nettet (helst danske) og især hvis der findes noget med hvordan man arbejder med Delphi og databaser.