Mam kod na index górny (pochodzi on z FAQ) prawie w ogóle go nie rozumiem ale:

procedure TForm1.btnIndexClick(Sender: TObject);
var
CharFormat : TCharFormat;
begin
ZeroMemory(@CharFormat, SizeOf(TCharFormat));
with CharFormat do
begin
cbSize := SizeOf(TCharFormat);
RichEdit.Perform(EM_GETCHARFORMAT, 1, LParam(@CharFormat));
yHeight:=Round(yHeight0.7);
yOffset:=Round(yHeight
0.3); !! - tu zaznacza mi błąd: "Excepted but 'yOffset'.
RichEdit.Perform(EM_SETCHARFORMAT, wParam(SCF_SELECTION), LParam(@CharFormat));
end;
RichEdit.SetFocus;
RichEdit.SelLength := 0;
end;

co robić?