Строки мемо!

var
  X, Y: LongInt;
begin
  Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  X := Memo1.Perform(EM_LINEINDEX, Y, 0);
  inc(Y);
  X := Memo1.SelStart - X + 1;
  Form1.Caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);
end;

procedure CaretPos(H: THandle; var L,C : Word);  
begin  
  L := SendMessage(H,EM_LINEFROMCHAR,-1,0);  
  C := LoWord(SendMessage(H,EM_GETSEL,0,0)) - SendMessage(H,EM_LINEINDEX,-1,0);  
end;  
 
procedure TForm1.Button1Click(Sender: TObject);  
var  
  LineNum,ColNum : Word;  
begin  
  CaretPos(Memo1.Handle,LineNum,ColNum);  
  Edit1.Text := IntToStr(LineNum) + '  ' + IntToStr(ColNum);  
end;

procedure CaretPos(H: THandle; var L,C : Word);
begin
  L := SendMessage(H,EM_LINEFROMCHAR,-1,0);
  C := LoWord(SendMessage(H,EM_GETSEL,0,0)) - SendMessage(H,EM_LINEINDEX,-1,0);
end;
 
procedure TForm1.PanelHint(Sender:TObject; var Done: Boolean);
var
  LineNum,ColNum : Word;
begin
  CaretPos(Memo1.Handle,LineNum,ColNum);
  Panel1.Caption := IntToStr(LineNum) + ' : ' + IntToStr(ColNum);
done:=false;
end;

procedure TForm1.MyHint(Sender: TObject);
 begin
 Panel2.Caption := Application.Hint;
 end;