Создание графа в Form,C++

[Скарам]

И снова я этим рисованием...Взял форму,на него поместил RadioGroup1,Button и Image1 начал рисовать поле,покрытое кружками(заполненных белым цветом),всё нормально...Потом хочу закрасить эти круги-не красит...не могли бы вы посмотреть и объяснить что же не так?

#include "Draw.h"
struct Draw
	{
		int x;
		int y;
		int Number;
		int Value;
	};
Draw Matrix[6][8]={0};
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
void PAINTFirst();
void Paint();
void Fill();
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
	: TForm(Owner)
{
	Form4->Image1->Canvas->FillRect(Rect(0,0,Form4->Image1->Width,Form4->Image1->Height));//на форуме писали,что так можно очистить поле Image1
	Fill();
	PAINTFirst();
	Paint();

}
//---------------------------------------------------------------------------
void Fill()
{
	for(int i=1;i<=6;i++)
		{
			for(int j=1;j<=8;j++)
				{
					Matrix[i-1][j-1].x=(50*j);
					Matrix[i-1][j-1].y=(50*i);
				}
		}
}
//---------------------------------------------------------------------------
void PAINTFirst()
{

			for(int i=0;i<6;i++)
				{
				for(int j=0;j<8;j++)
					{
					   //	Form4->Image1->Canvas->Brush->Color=clBlue;
					  //Form4->Image1->Canvas->Pen->Color=clRed;
						int X1,Y1,X2,Y2;
						X1=Matrix[i][j].x-10;
						X2=Matrix[i][j].x+10;
						Y1=Matrix[i][j].y-10;
						Y2=Matrix[i][j].y+10;
						Form4->Image1->Canvas->Ellipse(X1,Y1,X2,Y2);
						Matrix[i][j].Value=1;
					}
				}

}
//---------------------------------------------------------------------------
void Paint()
{

  Form4->Image1->Canvas->FillRect(Rect(0,0,Form4->Image1->Width,Form4->Image1->Height));
  if(Form4->RadioGroup1->ItemIndex==0)
		{
			for(int i=0;i<6;i++)
				{
				for(int j=0;j<8;j++)
					{
						if(Matrix[i][j].Value==0)
							{
							   int X1,Y1,X2,Y2;
								X1=Matrix[i][j].x-10;
								X2=Matrix[i][j].x+10;
								Y1=Matrix[i][j].y-10;
								Y2=Matrix[i][j].y+10;
								Form4->Image1->Canvas->Ellipse(X1,Y1,X2,Y2);
							}
						 if(Matrix[i][j].Value==1)
							{
								Form4->Image1->Canvas->Brush->Color=clBlue;
								//Form4->Image1->Canvas->Pen->Color=clRed;
								int X1,Y1,X2,Y2;
								X1=Matrix[i][j].x-10;
								X2=Matrix[i][j].x+10;
								Y1=Matrix[i][j].y-10;
								Y2=Matrix[i][j].y+10;
								Form4->Image1->Canvas->Ellipse(X1,Y1,X2,Y2);
							}
					}
				}

		}
}
void __fastcall TForm4::Button1Click(TObject *Sender)
{
	Paint();
}

[Скарам]

Всё,написал программу,реализующую граф,могу выложить exe,но только надо ещё и bpl,и dll файлы в архив кидать...

[dampirik]

Выкладывай поглядим)

[Скарам]

Вот собственно проект,правда это только небольшая часть всей программы...Топорно,но работает..
З.Ы.Если каких-то dll не хватает,пишите,выложу.
P.S.Ну так как?))

[Скарам]

Ещё пару вопросов по этому рисованию...В кружки мне надо вставить символы ↑ и ↓ как это сделать?)