임프랍니다.

Win32 API의 SetTextCharacterExtra() 함수를 쓰면 캔바스에 그려지는 글자들의 간격을 설정할 수 있습니다.
다음은 간단한 예제입니다. 빈 프로젝트의 폼에 페인트박스 하나와 트랙바 하나를 놓고 테스트해보세요.

// PaintBox1의 OnPaint 이벤트 핸들러
void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
    SetTextCharacterExtra(PaintBox1->Canvas->Handle, TrackBar1->Position);
    PaintBox1->Canvas->TextOut(10, 10, "ABCDEFG");
}

// TrackBar1의 OnChange 이벤트 핸들러
void __fastcall TForm1::TrackBar1Change(TObject *Sender)
{
    PaintBox1->Invalidate();
}

(볼랜드 재팬의 델파이 FAQ를 참고했습니다.)