[NumLock]

Ну уж на то пошло тогда с возбуждением исключения делать, а не в тихую ничего не делая

Код:

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;