[@Rafa3L]

Все работает

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;j:=0;I := Random(5);
memo1.Lines.add(inttostr(i));
  repeat
    J := Random(5);memo1.Lines.add(inttostr(j));
  until I <> J;
end;