Kopiowanie klasy

Witam
mam sobie deklarację swojej klasy, oraz utworzoną jej instancję. Czy mogę w jakiś sposób "skopiować" zawartość instancji tej klasy do innej instancji, bez ręcznego pisania w stylu

//m jest tez typu TMojaKlasa, ale jest juz wypelnione danymi
var
m2: TMojaKlasa;
begin
m2:= TMojaKlasa.Create;
m2.text := m.text;
m2.text2 := m.text2;
// itp... 

w dodatku część danych jest w sekcji private i nie chcę ich "upubliczniać"
...
Pozdrawiam
moczarek

Napisanie

m := m2;

zpowoduje zkopiowanie wskaźnika. Jeśli chcesz fizycznie skopiować klase użyj tego:

m.Assign(m2);

Ale w tedy klasa musi pochodzić od TPersistent.