Var Colonne:Integer;
begin
Colonne:=Memo1.Selstart-SendMessage(Memo1.Handle,EM_LineIndex,Colonne,0);
Label1.Caption:=IntToStr(Colonne+1);
end;