Primzahlen ausgeben (Problem)

[Reincanation]

Hi, habe ein Problem

Ich soll die Primzahlen von 0-100 in ein Labelfeld ausgeben, habe es theoretisch auch schon geschafft aber irgendwie wills bei mir nicht so ganz...

Delphi-Quellcode:

var
i:integer;
begin
repeat
i:=i+1;
if i mod i = 0 then
label1.caption:=label1.caption+inttostr(i)+char(13);
until i=100;
end;

sollte doch eigentlich funktionieren oder?

was ist mein fehler?

greetz