Ну уж на то пошло тогда с возбуждением исключения делать, а не в тихую ничего не делая
Код:
procedure TClients.AssignTo(Dest: TPersistent);
begin
if not (Dest is TStrings) then raise Exception.Create('!TStrings');
TStrings(Dest).Clear;
TStrings(Dest).Add('1');
TStrings(Dest).Add('2');
TStrings(Dest).Add('4');
TStrings(Dest).Add('8');
end;