procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
begin
key:=#0;
memo1.SelStart:=0;
memo1.SelLength:=0;
end;
end;
begin
if key =#13 then
begin
key:=#0;
memo1.SelStart:=0;
memo1.SelLength:=0;
end;
end;
#13是回车