님이 바라는 동작을 한번에 하는 표준함수는 없습니다.
초단위차계산은 secondsbetween(now, then: tdatetime)으로 하니까 요걸 div 60 하면 분, mod 60 하면 초가 나오겠지요.
130:10은 Tdatatime형으로 표시못하니까 strtodate같은 함수를 쓸 필요는 없을겁니다.

그때 := time;
...
초수 := secondsbetween(time, 그때);
분 := 초수 div 60;
초 := 초수 mod 60;

function ADDMinutesSeconds(ATime: String; RowNum : Integer = 0 ): String;
var
        H, M, S : word;
begin
        result := Formatdatetime('YYYYMMDDHHMMSS',now);

        try
             if pad_Icode(ATime) = 0 then
                     ATime := Result ;

             case RowNum of
                     0 :
                     begin
                        H := StrToInt(Copy(Result, 9,2));
                        M := StrToInt(Copy(Result,11,2));
                        S := StrToInt(Copy(Result,13,2));

                        S := S + StrToInt(copy(ATime,3,2));
                        if S > 60 then
                        begin
                                S := S - 60;
                                M := M +  1;
                        end;


                        M := M + StrToInt(copy(ATime,1,2));
                        if M > 60 then
                        begin
                                M := M - 60;
                                H := H +  1;
                        end;

                        if H < 24 then
                        begin
                                Result := formatdatetime('YYYYMMDD',now );
                        end else
                        begin
                                H := H - 24;
                                Result := formatdatetime('YYYYMMDD',now + 1 );
                        end;

                        Result := Result + fn_0RJ(2,IntToStr(H)) + fn_0RJ(2,IntToStr(M)) + fn_0RJ(2,IntToStr(S));
                    end;
               end;
        except
               {null}
        end;
end;

오호 이런 방법이 있었군요.

다른 방법으로 해결하기는 했으나 다음에 작업시 참고 하도록 하겠습니다.

감사합니다~~