에궁.. 결국은 자답을 하고 맙니다.
일명 꽁수라는 것을 쓰긴 했는데..
이보다 더 쉬운 방법이 있으면. 꼭 답변 부탁드립니다.

Procedure TForm1.Button1click(Sender : TObject);
var
tmpX, tmpY, nx :  integer;
begin
     Label.Caption :='';
     Label.Refresh;
     Label.Canvas.Pen.Color := Label.Font.Color;
     Label.Canvas.Pen.width := 1;
     Label.Canvas.TextOut(0,0,'이거이 테스트 입니다.');  

     tmpX := Label.Canvas.TextWidth(이거이 ');
     nx := Label.Canvas.TextWidth('테스트');
     tmpY := Label.Canvas.TextHeight('테');
     Label.Canvas.Moveto(tmpX,tmpY-1);
     Label.Canvas.Lineto(tmpX+nx,tmpY-1);

     tmpX :=Label.Canvas.TextWidth('이거이 테스트 ');
     nx := Label.Canvas.TextWidth('입니다.');
     tmpY := Label.Canvas.TextHeight('입');
     Label.Canvas.Moveto(tmpX,tmpY-1);
     Label.Canvas.Lineto(tmpX+nx,tmpY-1);
end;