15 lines
151 B
Text
15 lines
151 B
Text
|
var
|
||
|
|
i: Integer;
|
||
|
|
s: string;
|
||
|
|
o: TObject;
|
||
|
|
begin
|
||
|
|
i := 123;
|
||
|
|
s := 'abc';
|
||
|
|
o := TObject.Create;
|
||
|
|
try
|
||
|
|
// ...
|
||
|
|
finally
|
||
|
|
o.Free;
|
||
|
|
end;
|
||
|
|
end;
|