Problem mit Randomize

[Nalincah]

Bei mir klappt das irgendwie nicht
Random gibt keinen Wert zurück!!!

Delphi-Quellcode:

procedure GeschwTest;
var
  i : Integer;
  Anz_VKopf,Anz_VZeil:Integer;
begin
  Anz_VKopf := StrToInt(FrmMain.EditAnzKopf.text);
  Randomize;
  Anz_VZeil := Random(StrToInt(FrmMain.EditAnzZeil.Text));
  if (FrmMain.TabVKopf.Active = True) and
     (FrmMain.TabVZeil.Active = True) then
  begin
    for i := 0 to Anz_VKopf do
    begin
    end;
  end;
end;