Доброго всем времени суток!

Подскажите как решить проблему, код ниже:

TFirm = class  // созданный класс
  fid       : Word;
  firmname  : String;
end;

procedure TForm.BtnClick(Sender: TObject);
  Var
    FIRM1, FIRM2 : TFIRM;
begin
  FIRM1:=TFirm.Create;
  FIRM2:=TFirm.Create;
  FIRM1.fid:=1;
  FIRM2.fid:=2;

  FIRM1:=FIRM2; // здесь мне нужно скопировать значения всех свойств объекта FIRM2 в FIRM1(в данном случае fid, firmname), а получается что FIRM2 замещает FIRM1.

  FIRM2.Free;
  ShowMessage(IntToStr(FIRM1.fid)); // здесь вместо значения "2" выводится 4096
end;