construct TSomeClass.Create(A: Integer);
begin
end;

construct TSomeClass.Create(A: String);
begin
DoSomething(A);
Create(100);
end;