Generando el password perfecto!

[marcoszorrilla]

Esa del perrito está comenzándome a gustar

Código Delphi [-]
Procedure GuaGua();
var
MiClaveSemanal:String:
begin
MiClaveSemanal:='Perrito';

For i:=1 to 52 do
begin
MiClaveSemanal:=Perrito + IntToStr(i);
ShowMessage('Clave para la semana: '+IntToStr(i)' = '+Perrito + IntToStr(i));
end;

end;

Un Saludo canino.