Edit6.Text -> Trim(Edit6.Text);if AnsiLowerCase(self.Edit6.Text) = 'a'  then
Trim/AnsiLowerCase这两个函授用来干什么的原文:begin
  if Trim(self.Edit6.Text) = 'a' then//'a', AnsiLowerCase
    edit7.Text := edit2.Text
  else
    if Trim(self.Edit6.Text) = 'b' then
      edit7.Text := edit3.Text
    else
      if Trim(self.Edit6.Text) = 'c' then
        edit7.Text := edit4.Text;
end;