[[ArdiIIa]]

Código Delphi [-]
try
Destination.Assign(Source); 
except
  on EConvertError do Destination := Source;
end;