Objekt direkt einen Wert zuweisen?

[youuu]

Hi wie kann ich einen Objekt direkt einen Wert zuweisen?

Delphi-Quellcode:

 TCompanySize = class
  Private
     Small: string;   << wert zuweisen
     Middle: string;
     Large: string;
  Public
   Procedure CompanySizeAdd(Customer: TObject; Size: string);
  End;