三个自然数的算法问题

假设有三个自然数A,B,C，关系是A+B=C。A与B的关系是B是A去掉一位后组成的新数（除去掉数字外，其他数字先后顺序不变）。
现在已知C，求A，这种算法题该怎么解？

例子：如果C等于34，那么A有三种情况，27，31，32

function IsPartOf(A, B: Integer): Boolean;
var
S, T: String;
i : Integer;
begin
Result := False;
S := IntToStr(A);
T := IntToStr(B);
for i := 1 to Length(S) do
begin
if Copy(S, 1, i - 1) + Copy(S, i + 1, Length(S)) = T then
begin
Result := True;
break;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var A, B, C: Integer;
begin
C := 34;
for A := C - 1 downto 10 do
begin
B := C - A;
if B > A then break;
if IsPartOf(A, B) then
Memo1.Lines.Add(Format('%d = %d + %d', [C, A, B]));
end;
end;

这种算法缺点在于位数一多起来计算速度慢，有谁有更好的算法？任何语言编写的都可以贴出来讨论讨论