procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
I := 1;
ShowMessage(Format('XXXX%.4d', [I]));
I := 12;
ShowMessage(Format('XXXX%.4d', [I]));
I := 123;
ShowMessage(Format('XXXX%.4d', [I]));
end;
var
I: Integer;
begin
I := 1;
ShowMessage(Format('XXXX%.4d', [I]));
I := 12;
ShowMessage(Format('XXXX%.4d', [I]));
I := 123;
ShowMessage(Format('XXXX%.4d', [I]));
end;
s := '0'+IntToStr(a);