Problem mit matrizetransoframtion

[WhatAmI]

in der Anglage könnt ihr das programm sehen! Eigentlich soll das programm eine genzeichnete Figur drehen!

Mein probleem ist das die figur gedrehr wird awer auch gleichzeitig kleiner oder grösser wird während dem drehen!doch das will ich eigentlich nicht!

Hier ist der code wie ich die Matrize transformiert habe!

Delphi-Quellcode:

procedure TForm1.TBChange(Sender: TObject);
begin
  lblAngle.Caption := FloatToStr( (tb.Position-33)*(pi/32));
  sgm.cells[0,0]:=floattostr(cos(strtofloat(lblAngle.caption)+sin(strtofloat(lblAngle.caption))));
  sgm.cells[1,0]:=floattostr(-sin(strtofloat(lblAngle.caption)+cos(strtofloat(lblAngle.caption))));
  sgm.cells[0,1]:=floattostr(-sin(strtofloat(lblAngle.caption)+cos(strtofloat(lblAngle.caption))));
  sgm.cells[1,1]:=floattostr(cos(strtofloat(lblAngle.caption)+sin(strtofloat(lblAngle.caption))));
  sgMDblClick(sender);
  repaint;

end;

hoffe jemand versteht mein probleem! falls jemand eine ahnung hat wie man das bewerkstelligen kann dann kann er mir villeich im icq schreiben! wenn es zu aufwendig ist es hier zu erklären!

danke


mit bestem gruss einsamerwolf