I am trying to get the TOP of the selected area.
Code below crashes. Does anyone have a clue how to to solve the problem?
procedure TForm1.Button1Click(Sender: TObject);
var
SelTop: integer;
begin
kmemo1.Blocks.Clear ;
KMemo1.Blocks.AddTextBlock('sadfksahkjsdajsadpfjsdaoifjiojsfadjdsf') ;
kmemo1.select(5,10);
SelTop:= KMemo1.SelectedBlock.Top; //Crashes here
end;