var
i: Integer;
s: string;
o: TObject;
begin
i := 123;
s := 'abc';
o := TObject.Create;
try
// ...
finally
o.Free;
end;