Mostrar cifras completas y rellenar con 00

[compuin]

Hola Foro, nuevamente yo por aca

Tengo esta funcion para obtener la posicion en grados, minutos y segundos de cualquier planeta

Código Delphi [-]
function AngleToStr(angle:extended):string;
var
  D:integer;
  M,S:extended;
begin
  d:=Trunc(angle);
  m:=abs(frac(angle)*60);
  s:=Round(abs(frac(m)*60));
  Result:=format('%d° %d'' %d"',[d, trunc(m), trunc(s)]);
end;

Aunque funciona bien me muestra los valores de esta manera

Código Delphi [-]
244° 9' 1"

Necesito mostrarlos de esta forma y que a su vez muestre la fracccion de los segundos

Código Delphi [-]
244° 09' 01.35"

Gracias una vez mas

Saludos