if copy(destfile,length(destfile-4),4)<>'.inf' then destfile:=destfile+'.inf';
Gefällt mir so besser:
if not Pos('.inf', destfile) > 0 then destfile := destfile + '.inf';
Aber das spielt ja auch keine große Rolle.
Edit:
Unde du solltest es irgendwie so machen:
Delphi-Quellcode:
...
try
...
finally
sl.Free;