var
YourMarkup:TSynEditMarkupHighlightAll;
YourMarkup1:TSynEditMarkupHighlightAll;
begin
while synedit1.MarkupManager.Count > 0 do
begin
synedit1.MarkupManager.RemoveMarkUp( synedit1.MarkupManager.Markup[0]);
end;
YourMarkup := TSynEditMarkupHighlightAll.create(synedit1);
synedit1.MarkupManager.AddMarkUp(YourMarkup);
YourMarkup.MarkupInfo.Background := clYellow;
YourMarkup.MarkupInfo.Foreground := clBlack;
YourMarkup.MarkupInfo.Style := [fsUnderline];
YourMarkup.SearchString := ('foo' + chr(13) + chr(10));
YourMarkup1 := TSynEditMarkupHighlightAll.create(synedit1);
synedit1.MarkupManager.AddMarkUp(YourMarkup1);
YourMarkup1.MarkupInfo.Background := clLtGray;
YourMarkup1.MarkupInfo.Foreground := clBlack;
YourMarkup1.MarkupInfo.Style := [fsUnderline];
YourMarkup1.SearchString := (chr(13) + chr(10) + 'foo');