--== Как изменить цвет пера? ==--

[Shpion007]

Доброго времени суток, решили таки проблему с кнопками, теперь встал вопрос как изменить цвет пера (рисуем средствами апи на форме),
ни

Form1->Canvas->Pen->Color=RGB(0,255,0)

ни

CreatePen(PS_SOLID, 2,  RGB(0, 0, 255));

не помогают, по крайней мере у меня не получается.

Вот пример простейшей программы:

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <windows.h>
#include <math.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
LRESULT CALLBACK  WndProc(HWND, UINT, WPARAM, LPARAM);
bool stop;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
class TGraphicsThread: public TThread
{
private:
protected:
	void __fastcall Execute(void);
public:
	void __fastcall MyResume(void);
	__fastcall TGraphicsThread(bool Suspended);
	__fastcall ~TGraphicsThread();
};
__fastcall TGraphicsThread::TGraphicsThread(bool Suspended): TThread(Suspended)
{
	//<-- тут инициализируете ваши переменные
}
__fastcall TGraphicsThread::~TGraphicsThread()
{
	//<-- тут уничтожаете ваши переменные
}
void __fastcall TGraphicsThread::MyResume(void)
{
/*  int SuspendCount = ResumeThread(Handle);
  CheckThreadError(SuspendCount >= 0);
  if(SuspendCount = 1) Suspended = false;  */
}

void __fastcall TGraphicsThread::Execute(void)
{
	int i, H;
	stop=0;
	H = Form1->Height;
	HDC hDC = GetDC(Form1->Handle);

  for (i = 0; i > -1; i++) {
  if (stop==1) break;
  MoveToEx(hDC, i%500,i%500, NULL);
  LineTo(hDC, i%500, H/2);
  TextOut(hDC, i%500, i%500, "Number of raster fonts: ", 24);
}
  }
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TGraphicsThread *MyThread = new TGraphicsThread(true);
MyThread->Suspended = false;
MyThread->FreeOnTerminate = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
stop = 1;
}
//---------------------------------------------------------------------------

Как то так, что подскажете?