unit Unit1;
interface
type
TFoo = class
public
constructor Create; overload;
procedure Fa();
end;
procedure Test();
implementation
procedure Test();
begin
with TFoo.Create do
try
Fa; //undeclared identifier
finally
Free; //undeclared identifier
end;
end;
{ TFoo }
constructor TFoo.Create;
begin
end;
procedure TFoo.Fa;
begin
end;
end.