Будущая игра.

int w1=Form1->ClientWidth;

function TControl.GetClientWidth: Integer;
begin
  Result := ClientRect.Right;
end;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->Rectangle(0,0,51,11);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//Если не будет аптечек, следующие 2 строчки можно выкинуть
Image1->Canvas->Brush->Color=clRed;
Image1->Canvas->Rectangle(0,0,51,11);
int w=StrToInt(Edit1->Text);//w= îò 50 äî 1
Image1->Canvas->Brush->Color=clWhite;
Image1->Canvas->FillRect(Rect(w,1,50,10));
}

heal+=p; //где p число, прибавляемое/отнимаемое к нашему здоровью
Image1->Width=heal/1;  //1 будет отвечать за масштаб нашего HealBar'а. Так ширина Image1 будет равна количеству здоровья, при увелечении/уменшении масштаб будет менятся

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
  if (Key == VK_RETURN) {
    Memo1->Lines->Add(Edit1->Text);
    Memo1->ScrollBy(0,65535);
    Edit1->Clear();
  }
}

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
  if (Key == VK_RETURN) {
    Memo1->Lines->Add(Edit1->Text);
    Memo1->ScrollBy(0,65535);
    Edit1->Clear();
    Key = 0;
  }
}

void open(void){
FILE *F;
if (FileExists(".\\Config.ini"))
{F=fopen(".\\Config.ini", "rt");
for (int i;;i++) {
fseek(F,i, SEEK_SET);
char ch;
ch = getc(F);
if(ch==eof){fseek(F,i+1, SEEK_SET);
fscanf (F, "%d", &cit);
switch (b) {
case 0: {Form1->Width=cit; Form1->Label1->Caption=(AnsiString)cit; break;}
case 1: {Form1->Height=cit; break;}
case 2: {fullscreen=cit;  break;}
case 3: {bits=cit; break;}
case 4: {RefreshRate=cit; break;}}
b++;}
if (feof(F)) {break;}}
}fclose(F);}