三个自然数的算法问题

假设有三个自然数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;

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