Нельзя преобразовать тип Tuple<string,string,string,string> к string

uses FormsABC;
 
var 
  text1 := new TextLabel('ax² + bx + c = 0');
  text2 := new TextLabel('a, b, c — коэффициенты уравнения, могут быть любыми числами');
  a := new RealField ('a:');
  f1 := new FlowBreak;
  b := new RealField('b:');
  f2 := new FlowBreak;
  c := new RealField('c:');
  f3 := new FlowBreak;
  s1 := new Space(20);
  ok := new Button('Решить');
  f4 := new FlowBreak;
  solution := ('Введите коэффициенты уравнения');
  solution_tl := new TextLabel(solution);
 
 
begin
  MainForm.Title := 'Калькулятор квадратных уравнений';
  MainForm.SetSize(150,350);
  MainForm.CenterOnScreen;
  mainPanel.Dock := DockStyle.Left;
  mainPanel.Width := 150;
 
  ParentControl := MainForm;
 
var d, x, x1, x2 : real;
var x1_str, x2_str : string;
 
begin
 
if a.Value=0 then 
  if b.Value=0 then 
    if c.Value=0 then 
      solution := ('Х - любое число')
    else
      solution := ('Уравнение не имеет решений, поскольку b равен нулю')
  else
    begin
      x := -c.Value/b.Value;
      solution := ('X = ',x).ToString;
    end;
if a.Value<>0 then
  begin
   d := b.Value*b.Value-4*a.Value*c.Value;
    if d<0 then
      solution := ('Уравнение не имеет решений, поскольку D отрицательный')
   else
    begin
      x1 := (-b.Value+sqrt(d))/2/a.Value;
      x2 := (-b.Value-sqrt(d))/2/a.Value;
      str(x1,x1_str);
      str(x2,x2_str);
      solution := ('X1 = ', x1_str, 'x2 = ', x2_str);
    end;
  end;
end;
end.

solution := ('X1 = '+'x2 = '+x2_str);

      solution := Concat('X1 = ', x1_str, 'x2 = ', x2_str);