procedure TEbookSettingsForm.ParagraphScrollbarChange(Sender: TObject);
var
met, met2: TParaMetric;
begin
InitParaMetric(met);
InitParaMetric(met2);
MainForm.Editor.GetParaMetric(0, met);
met.FirstLine := 30;
MainForm.Editor.SetParaMetric(0, Length(MainForm.Editor.Lines.Text), met);
MainForm.Editor.GetParaMetric(0, met2);
MainForm.StatusBar.SimpleText := FloatToStr(met2.FirstLine);
//MainForm.Ebook.paragraphIndent := ParagraphScrollbar.Position;
//ParagraphScrollValueLabel.Caption := IntToStr(MainForm.Ebook.paragraphIndent);
end;