[Delphi] Pochylenie?

Jak mogę uzyskać efekt podobny do tego z painta, czyli pochyl w pionie/w poziomie?---------------------------
Delphi 6

Pozdrówka

Przesuwaj poszczególne linie obrazka o Round(NrLini*cos(KatPochylenia));
Radzę użyć ScanLine zamiast Pixels (znacznie szybsze)--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.