[s0Creator]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  mass:array[1..5] of integer;  
  i,j:integer;
  notchek: Boolean;
  a:integer;
begin
  memo1.Clear;
  Randomize;
    for i:=1 to 5 do
    begin
      notchek := true;
      while notchek do
      begin
        a:=random(6);
        if a <> 0 then
        begin
          notchek := false;
          for j := 1 to i - 1 do
          begin
            notchek := (a = mass[j]);
            if notchek then
              break;
          end;
        end;
      end;
      mass[i] := a;
      memo1.Lines.Add(inttostr(a));
    end;
end;