Вопрос такой

Кто знает как повернуть содержимое TImage на 90 градусов?

вот тут кусок кода с глюком:
=============================
procedure TfrmImageEditor.actImageTCWExecute(Sender: TObject);
var
OriginBitMap : TBitMap;
RotateBitMap : TBitMap;
OP : PByteArray;
RP : PByteArray;
x,y : Integer;
TempBMP : TBitmap;
begin
OriginBitMap := TBitMap.create;
RotateBitMap := TBitMap.create;
TempBMP := TBitMap.Create;

try

RotateBitMap.Height := imSource.Picture.Bitmap.Width;
RotateBitMap.Width := imSource.Picture.Bitmap.Height;

OriginBitMap.Assign(imSource.Picture.Graphic);
OriginBitMap.PixelFormat := pf8bit;
RotateBitMap.PixelFormat := pf8bit;

// если вращать так, то теряется качество картинки
// тут если картинка была высокого качества, например 24 битная, то при
// повороте теряется качество цветопередачи,
// но если прописать = pf24bit - то поворачивает неправильно, режет пополам
// короче, мне кажется, надо что-то тут сделать на предмет обнаружения
// качества картинки, а потом выбор pf8bit или pf24bit или pf32bit
// но хрен знает что делать при вращении, если картинка 24 битная, 32битная
// она не вращает как положено, там навыерное пробемы с битовой матрицей
// для разных форматов, но ГДЕ?
// пробовал делать Case перед циклом вращения, но она не выдает содержимое myformat в отладчике он получается = pfDevice
// { myformat:=OriginBitMap.PixelFormat;
//
// case myformat of
// pf8bit : newformat:= pf8bit;
// pf24bit: newformat:= pf24bit;
// end;
// }
// но даже если выяснить какой формат, то как потом правильно
// вращать?

RotateBitMap.Palette := OriginBitMap.Palette;

for y := 0 to RotateBitMap.Height -1 do
begin
RP := RotateBitMap.ScanLine[y];
for x := RotateBitMap.Width -1 downto 0 do
begin
OP := OriginBitMap.ScanLine[x];
RP[RotateBitMap.Width -1-x] := OP[y];
end
end;

imSource.Width :=RotateBitMap.Height;
imSource.Height:=RotateBitMap.Width;
imSource.Picture.Assign(RotateBitMap);

ImageRefresh;

finally
RotateBitMap.Free;
OriginBitMap.Free;
end;

end;