[ecfisa]

Hola gabtroc y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Creo que podrías hacer:

Código Delphi [-]
...
var
  aux, i: Integer;
  d1, d2, d3, d4: Integer;
begin
  for i:= 1000 to 9999 do  //  para i <- desde 1000 hasta 9999 hacer
  begin
    aux:= i;
    d4:= aux mod 10;
    aux:= aux div 10;
    d3:= aux mod 10;
    aux:= aux div 10;
    d2:= aux mod 10;
    aux := aux div 10;
    d1:= aux mod 10;
    if (d1<>d2)and(d1<>d3)and(d1<>d4)and(d2<>d3)and(d2<>d4)and(d3<>d4) then
      Write(i:5);
  end;
  Readln;
...

Saludos.