procedureTForm1.Button1Click(Sender:TObject);vars:string;begins:='dsd';s:=s+slinebreak+s; //sLineBreak 换行raiseException.Create('test');end;...