void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // 両方とも最初の行（列）は、0
    int x, y;
    x = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0);  // 現在の行位置を取得
    y = Memo1->SelStart-Memo1->Perform(EM_LINEINDEX, Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0), 0); // 現在の列位置を取得
    MessageDlg("X=" + IntToStr(x) + ", Y=" + IntToStr(y), mtInformation, TMsgDlgButtons() << mbOK, 0);
}

#include <mmsystem.h> // for timeGetTime()
 
Memo1->Lines->Add("Socket Connecting ...");
 
int x = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0); // 現在の行位置を取得
Memo1->SelStart = Memo1->Perform(EM_LINEINDEX, x-1, 0); // カーソルを最終行に移動
Memo1->SelStart += Memo1->Lines->Strings[x-1].Length(); // カーソルを文字列分進める
 
for(int i=0; i<10; i++){
    unsigned int t = timeGetTime(); // 今の時間を記憶
    while(1000 > timeGetTime()-t){  // 記憶した時間から 1000ミリ秒ループ
        Application->ProcessMessages();
    }
    Memo1->SelText = "."; // Connectできるまで、"." を追加
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    FontDialog1->Options << fdTrueTypeOnly;
    if(FontDialog1->Execute()){
        Memo1->Font = FontDialog1->Font;
    }
}