FirstLine := Memo1.Perform(EM_GETFIRSTVISIBLELINE, 0, 0 );