Как выровнять текст в Image?

void __fastcall TForm1::FormShow(TObject *Sender)
{
 Image1->Canvas->Rectangle(0,0,Image1->ClientWidth,Image1->ClientHeight);
 String s = String("Âûñøåé èñòèííîñòüþ îáëàäàåò òî, ÷òî ÿâëÿåòñÿ ïðè÷èíîé ñëåäñòâèé, â ñâîþ î÷åðåäü èñòèííûõ. - Àðèñòîòåëü");
 Image1->Canvas->Brush->Style = bsClear;
 LOGFONT lf;
 ZeroMemory(&lf, sizeof(LOGFONT));
 lf.lfHeight = 70;//??????
 //lf.lfWidth = 10; //??????*/
 lf.lfWeight = 500; //???
 lf.lfCharSet = DEFAULT_CHARSET;
 lf.lfPitchAndFamily = DEFAULT_PITCH;
 lf.lfEscapement = 0;
 strcpy(lf.lfFaceName,"Monotype Corsiva");
 //strcpy(lf.lfFaceName,"Times New Roman");
 Image1->Canvas->Font->Handle = CreateFontIndirect(&lf);
 Image1->Canvas->Brush->Color=clWhite;
 Image1->Canvas->FillRect(Image1->Canvas->ClipRect);
 int WidthOfString = Image1->Canvas->TextWidth(s);
 int HeightOfString = Image1->Canvas->TextHeight(s);
 SetTextColor(Image1->Canvas->Handle, 0x000000);
 //SetTextColor(Image1->Canvas->Handle, 0x00ffff);
 TextOut(Image1->Canvas->Handle, Image1->ClientWidth/2-WidthOfString/2,Image1->ClientHeight/2-HeightOfString/2, s.c_str(), s.Length());
 
}

Image1->ClientWidth/2-WidthOfString/2,
Image1->ClientHeight/2-HeightOfString/2

void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Text="Высшей истинностью обладает то, что является причиной следствий, в свою очередь истинных. - Аристотель";
DrawText(Image1->Canvas->Handle, Text.c_str(), Text.Length(), &TRect(0,0,Image1->Width,Image1->Height), DT_CENTER | DT_WORDBREAK );
}
//---------------------------------------------------------------------------

DrawText(Image1->Canvas->Handle, citati->Strings[d].c_str(), citati->Strings[d].Length(), &TRect(0,Image1->ClientHeight/2-Image1->Canvas->TextHeight(citati->Strings[d])/2,Image1->Width, Image1->Height), DT_CENTER | DT_WORDBREAK);