كيفية رسم اسهم للاعلى والاسفل عند الفرز ضمن الكريد

بسم الله الرحمن الرحيم

اريد ان افرز الكريد تصاعديا او تنازليا وعند الفرز يرسم على الكريد سهم يدل على نوع الفرز .....

المشكلة ليست بالفرز فقد فرزت الكريد بالضغط على عنوان الفيلد ولكن المشكلة عندي كيف اقوم برسم السهم الذي سيدل على نوعية الفرز ....

لقد بحثت كثيرا بالانترنيت ولم اجد سوى هذا الكود ولكن لم يجدي اي نتيجة ...

procedure PaintArrowUp(Canvas: TCanvas; var Rect: TRect);
var 
  SaveCol : TColor; 
begin 
  with Canvas do begin 
	SaveCol:=Pen.Color; 
	Pen.Color:=clGray;
	MoveTo(Rect.Right-10, Rect.Top+11);
	LineTo(Rect.Right-7, Rect.Top+5); 
	Pen.Color:=clWhite; 
	MoveTo(Rect.Right-6, Rect.Top+5); 
	LineTo(Rect.Right-3, Rect.Top+11); 
	LineTo(Rect.Right-10, Rect.Top+11); 
	Pen.Color:=SaveCol; 
  end; 
end; 

procedure PaintArrowDown(Canvas: TCanvas; var Rect: TRect);
var
  APolyLine: Array[0..2] of TPoint; 
  SaveCol : TColor; 
begin 
  with Canvas do begin 
	SaveCol:=Pen.Color; 
	Pen.Color:=clGray; 
	APolyLine[0]:=Point(Rect.Right-3, Rect.Top+5); 
	APolyLine[1]:=Point(Rect.Right-10, Rect.Top+5); 
	APolyLine[2]:=Point(Rect.Right-7, Rect.Top+11); 
	PolyLine(APolyLine); 
	Pen.Color:=clWhite; 
	MoveTo(Rect.Right-6, Rect.Top+11); 
	LineTo(Rect.Right-3, Rect.Top+5); 
	Pen.Color:=SaveCol; 
  end; 
end;

يا ريت حدا يساعدني