Делфи ругается на преобразование

procedure TForm1.Button1Click(Sender: TObject);
Var
  ID_proekt, proekt_name, data_vidachi,data_okonchania, zakazchik, budget: string;
begin
    ID_proekt:=quotedstr(unit11.Form1.Edit1.Text);
    proekt_name:=quotedstr(unit11.Form1.Edit2.Text);
    data_vidachi:=quotedstr(unit11.Form1.Edit3.Text);
    data_okonchania:=quotedstr(unit11.Form1.Edit4.Text);
    zakazchik:=quotedstr(unit11.Form1.Edit5.Text);
    budget:=quotedstr(unit11.Form1.Edit6.Text);
    begin
    ID_proekt:=StrToInt(Text);//тут попытка преобразовать строку в инт дабы оно корректно записалось в БД
    budget:=StrToInt(Text);
    data_vidachi:=StrToDate(Text);
    data_okonchania:=StrToDate(Text);
 
    with unit2.DataModule2.helpQuery do
 
    begin
    close;
    SQL.Clear;
    SQL.Add('exec NoviiSotrudnik'+ID_proekt+','+proekt_name+','+data_vidachi+','+data_okonchania+','+zakazchik+','+budget);
    ExecSQL;
    Unit2.DataModule2.ProjectsQuery.Active:=false;
    Unit2.DataModule2.ProjectsQuery.Active:=true;
      end;
    end;
  end;
end.

  With   ADOStoredProc1 do
  begin
    Parameters.Clear;
    ProcedureName := 'Exchange'; // Имя ХП
    Parameters.Refresh;
    Parameters.ParamByName('@from').Value :=  DBLookupComboBox1.Text;
    ParamByName('@to').Value :=  DBLookupComboBox2.Text;
    ParamByName('@Money').Value :=  Edit1.Text;
    ExecProc;
  end;
  With ADOQuery1 do
  begin
    SQL.Text := 'SELECT * FROM Таблица';
    Open;
  end;

   With    Unit2.DataModule2.NSStoredProc do
begin
    Parameters.Clear;
    ProcedureName := 'NoviiProekt'; // Èìÿ ÕÏ
    Parameters.Refresh;
    Parameters.ParamByName('@ID').Value :=   TextStrToInt(Edit1.Text);   //1
    Parameters.ParamByName('@proekt_name').Value :=  Edit2.Text;         //2
    Parameters.ParamByName('@data_vidachi').Value :=  TextStrToDate(Edit3.Text);//3
    Parameters.ParamByName('@data_okonchania').Value :=  TextStrToDate(Edit4.Text);//4
    Parameters.ParamByName('@zakazchik').Value :=  Edit5.Text;           //5
    Parameters.ParamByName('@budget').Value :=  TextStrToInt(Edit6.Text);//6
    ExecProc;
  end;
  With helpQuery do
  begin
    SQL.Text := 'SELECT * FROM Proekti';
    Open;
       end;

With DataModule2.NSStoredProc do //  Unit2.  Не нужно 
begin
    Parameters.Clear;
    ProcedureName := 'NoviiProekt'; // Имя ХП
    Parameters.Refresh;
 //   Parameters.ParamByName('@ID').Value :=   TextStrToInt(Edit1.Text); // В таблице это поля ID надо делать  identity(1,1) и не нужно добавить из Edit1.Text 
    Parameters.ParamByName('@proekt_name').Value :=  Trim(Edit2.Text); // Почитай про функция Trim и применяй его в программу
    Parameters.ParamByName('@data_vidachi').Value :=  TextStrToDate(Edit1.Text);// Для (Даты) ползуйте  DateTimePicker и НЕ "Edit1.Text"
    Parameters.ParamByName('@data_okonchania').Value :=  TextStrToDate(Edit1.Text);// Тоже самое
    Parameters.ParamByName('@zakazchik').Value :=  Trim(Edit1.Text); // некогда не оставляй таким имени "Edit1" компонент! назови его нормальный имя ! На пример "edtzakazchik" 
    Parameters.ParamByName('@budget').Value :=  TextStrToInt(Edit1.Text);//6
    ExecProc;
end;
  With helpQuery do
  begin
    SQL.Text := 'SELECT * FROM Proekti';
    Open;
  end;