delphi memo1到首行