Procedure TF_main.Save(Sender: TObject);
var j:Byte;
    f:TextFile;
begin
  AssignFile(f, 'Save.txt');
  Rewrite(f);
  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
        WriteLn(f, (Components[j] as TEdit).Text);
  CloseFile(f);
  SaveGrid('grid.dat',GridRoom);
end;

Procedure TF_main.SaveGrid(Const S: String; Const Grid: TStringGrid);  // Сохранение данных таблицы
Var ff: TextFile;
    t: Integer;
Begin
 AssignFile(ff, S);
 ReWrite(ff);
 try
  With Grid Do For t:=1 to RowCount - 1 Do
   WriteLn(ff, StringReplace(Rows[t].Text, #13#10, #9, [rfReplaceAll]));
 finally
  CloseFile(ff);
 end;  
End;

procedure TF_main.ClearGrid(Const Grid : TStringGrid);
var
  i : Integer;
begin
  //Очистка строк. Этот шаг необходим из-за "плавающего" бага
  //компонента TStringGrid. - Строки, удалённые через уменьшение значения
  //TStringGrid.RowCount на самом деле не всегда удаляются. - TStringGrid
  //их прячет и при последующем увеличении TStringGrid.RowCount в таблице опять
  //могут появиться ранее "удалённые" строки. Именно поэтому необходима очистка
  //перед удалением.
  for i := Grid.FixedRows to Grid.RowCount - 1 do begin
    Grid.Rows[i].Clear;
  end;
  //Удаление строк.
  //Здесь +1 - для того, чтобы после фиксированной строки осталась одна нефиксированная
  //строка - это необходимо для правильного функционирования таблицы.
  Grid.RowCount := Grid.FixedRows + 1;
end;

Procedure TF_main.LoadGrid(Const S: String; Const Grid: TStringGrid); //Загрузка таблицы из файла
Var ff: TextFile;
    St: String;
  //Индекс очередной строки в которую мы намереваемся записать данные из файла.
  RowNum : Integer;
Begin
 //Файловая переменная связывается с именем файла.
 AssignFile(ff, S);
 //Открытие файла в режиме "только чтение".
 Reset(ff);
 try
  //Очистка таблицы.
  ClearGrid(Grid);
  //Индекс самой верхней нефиксированной строки.
  RowNum := Grid.FixedRows;
  //Цикл до тех пор пока не достигнут конец файла.
  While not Eof(ff) Do
   Begin
    //Читаем очередную строку из файла.
    ReadLn(ff, St);
    With Grid Do
     Begin
      //Если требуется, добавляем строку вниз таблицы.
      if RowNum = RowCount then begin
        RowCount := RowCount + 1;
      end;
      //Распределяем данные по ячейкам, ориентируюясь на знаки табуляции.
      Rows[RowNum].Text:=StringReplace(St, #9, #13#10, [rfReplaceAll]);
     End;
   End;
 finally
  //Закрываем файл.
  CloseFile(ff);
 end;
End;

procedure Tf_main.N4Click(Sender: TObject);
begin
  Save(Edit1);
end;

procedure TForm1.SaveToFile(const FileName: TFileName);
var
  f : TextFile;
  j, R: Integer;
begin
  AssignFile(f, FileName);
  Rewrite(f);

  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
      with Components[j] as TEdit do
      begin // Saving Edits
        WriteLn(f, 'TEdit' + #13#10 + Name + #13#10 + Text);
      end
    else
      if Components[j] is TStringGrid then
        with Components[j] as TStringGrid do
        begin // Saving Grigs
          WriteLn(f, 'TGrid' + #13#10 + Name + #13#10 + IntToStr(RowCount));
          for R := 0 to RowCount - 1 do
            WriteLn(f, StringReplace(Rows[R].Text, #13#10, #9, [rfReplaceAll]));
        end;
  CloseFile(f);
end;

procedure TForm1.LoadFromFile(const FileName: TFileName);
var
  f : TextFile;
  i, R: Integer;
  TheClassName, TheComponentName, s : string;
begin
  AssignFile(f, FileName);
  Reset(f);
  while not Eof(f) do
  begin
    ReadLn(f, TheClassName);
    ReadLn(f, TheComponentName);
    if TheClassName = 'TEdit' then
    begin
      ReadLn(f, s);
      (FindComponent(TheComponentName) as TEdit).Text := s;
    end
    else
      if TheClassName = 'TGrid' then
        with FindComponent(TheComponentName) as TStringGrid do
        begin
          ReadLn(f, R);
          RowCount := R;
          for i := 0 to R - 1 do
          begin
            ReadLn(f, s);
            Rows[i].Text := StringReplace(s, #9, #13#10, [rfReplaceAll]);
          end;
        end;
  end;

  CloseFile(f);
end;

procedure Tf_main.Grafiki;
var
i:integer;
a1,a2:real;
begin
Series1.Clear;
for i:=1 to 5 do begin
if (GridResult.Cells[1, i]<>'') and (GridRoom.Cells[5, i]<>'') then begin
    a1:=StrToFloat(GridRoom.Cells[1, i]);
    a2:=StrToFloat(GridRoom.Cells[5, i]);
  end;
Series1.AddXY(a1, a2, '', clRed);
end;
//Edit для проверки значения, которое записывается в a1
Edit16.Text:=FloatToStr(a1);
end;

procedure Tf_main.Grafiki;
var
   i:integer;
   a1,a2:real;
begin
   Series1.Clear;
   for i:=1 to 5 do
      if (GridResult.Cells[1, i]<>'') and (GridRoom.Cells[5, i]<>'') then
      begin
         a1:=StrToFloat(GridRoom.Cells[1, i]);
         a2:=StrToFloat(GridRoom.Cells[5, i]);
         Series1.AddXY(a1, a2, '', clRed); // Добавлять в грид только тогда, когда A1 и A2 изменяются
      end;
   // Edit16.Text:=FloatToStr(a1);
end;

Код удален

// ...

  Img:=TBitmap.Create;
//  buffer:=TBitmap.Create;
  img.Width:=l+400;
//  buffer.Width:=l+400;
  img.Height:=h+400;
//  buffer.Height:=h+400;

// ...

if (GridResult.Cells[1, i]<>'') and (GridRoom.Cells[5, i]<>'') then

      if (GridResult.Cells[1, i]<>'') and (GridResult.Cells[5, i]<>'') then
      begin
         a1:=StrToFloat(GridResult.Cells[1, i]); // <--- Здесь тоже надо менять ...
         a2:=StrToFloat(GridResult.Cells[5, i]); // <--- И здесь ...
         Series1.AddXY(a1, a2, '', clRed);
      end;

procedure Tf_main.Button1Click(Sender: TObject);//Функция расчета
var i:integer;
begin
  F_main.BitBtn1Click(Sender);
  widthXX:=StrToFloat(edit15.text);
  widthYX:=StrToFloat(edit13.text);

if (GridRoom.Cells[2, i]<>'') and (GridRoom.Cells[3, i]<>'') then

    a1:=10*StrToInt(GridRoom.Cells[2, i]);
    a2:=10*StrToInt(GridRoom.Cells[3, i]);

if (Trim(GridRoom.Cells[2, i])<>'') and (Trim(GridRoom.Cells[3, i])<>'') then

      if TheClassName = 'TGrid' then
        with FindComponent(TheComponentName) as TStringGrid do
        begin
          ReadLn(f, R);
          RowCount := R;
          for i := 0 to R - 1 do
          begin
            ReadLn(f, s);
            if s <> '' then // <--- Вот эту строку добавь, чтоб лишнюю работу не делать
               Rows[i].Text := StringReplace(s, #9, #13#10, [rfReplaceAll]);
          end;
        end;

function Tf_main.Vvod_dannih:boolean;
var
i,j:integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      with Components[i] as TEdit do
      begin
        for j := 0 to Length(Components[i].text) do//Здесь ошибочка с обращением к свойству text
           if (Components[i].Text[j] not in['0'..'9', ',']) then //not in тоже не пашет, хотя вроде когда-то писал так
              begin
                 ShowMessage('В поле введено неправильное значение');
                 Result:=false;
                 Break;
              end else
              Result:=true;
      end;
end;

function Tf_main.Vvod_dannih:boolean;
var
i,j:integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      with TEdit(Components[i]) do begin  // можно без as, так как проверку ты уже сделал строчку назад
        for j := 1 to Length(text) do// убрать нафиг Components[i]. и индексировать строки надо от 1
           if not (Text[j] in['0'..'9', ',']) then //not in тоже не пашет, хотя вроде когда-то писал так
              begin
                 ShowMessage('В поле введено неправильное значение');
                 Result:=false;
                 Break;
              end else
              Result:=true;
      end;
end;

function Tf_main.Vvod_dannih : boolean;
var
   i, j: integer;
begin
   Result := False;
   for i := 0 to ComponentCount - 1 do
      if Components[ i ] is TEdit then
         with Components[ i ] as TEdit do
         begin
            for j := 0 to Length({(Components[ i ] as TEdit).}Text) do
               if not ({(Components[ i ] as TEdit).}Text[j] {not} in['0'..'9', ',']) then
               begin
                  ShowMessage('В поле введено неправильное значение'); Exit;
               end;
         end;
   Result := True;
end;

function Tf_main.Vvod_dannih : boolean;
var
   i, j: integer;
   Edit : TEdit;
begin
   Result := False;
   for i := 0 to ComponentCount - 1 do
      if Components[i] is TEdit then
      begin
         Edit := Components[i] as TEdit;
         for j := 1 to Length(Edit.Text) do
            if not (Edit.Text[j] in['0'..'9', ',']) then
            begin
               Edit.SelStart := 1; Edit.SelLength := Length(Edit.Text);
               Edit.SetFocus;
               ShowMessage('В поле введено неправильное значение'); Exit;
            end;
      end;
   Result := True;
end;

   Result := False;
   ShowMessage(Text); // <--- Вот эту, еще до того, как начинаешь проверять компоненты
   for i := 0 to ComponentCount - 1 do

procedure Tf_main.N7Click(Sender: TObject);
var
  f : TextFile;
  j, R: Integer;
  BM: TBitmap;
begin
if SaveDialog1.Execute then
  begin
  AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);

  for j := 0 to ComponentCount - 1 do
    if Components[j] is TEdit then
      with Components[j] as TEdit do
      begin // Saving Edits
        WriteLn(f, 'TEdit' + #13#10 + Name + #13#10 + Text);
      end
    else
      if Components[j] is TStringGrid then
        with Components[j] as TStringGrid do
        begin // Saving Grigs
          WriteLn(f, 'TGrid' + #13#10 + Name + #13#10 + IntToStr(RowCount));
          for R := 0 to RowCount - 1 do
            WriteLn(f, StringReplace(Rows[R].Text, #13#10, #9, [rfReplaceAll]));
        end
    else
      if Components[j] is TChart then
        with Components[j] as TChart do
        begin // Saving Grigs
          BM:=TBitmap.Create;
          try
             BM.PixelFormat:=pf24bit;
             BM.Width:=Chart1.ClientWidth;
             BM.Height:=Chart1.ClientHeight;
             Chart1.PrintPartialCanvas(bm.canvas, Chart1.ClientRect);
             BM.SaveToFile('f');
         finally
             BM.Free;
        end;
        end;
  CloseFile(f);
  end;
end;

   fn := ExtractFilePath(Application.ExeName) + 'tmp.bmp'; // Тут будет временная картинка
   Chart1.SaveToBitmapFile(fn);

   WordApp := CreateOleObject('Word.Application'); // А вот с эти приложением работаем
   WordApp.Visible := True; // Это можно отключить, я включил, чтоб наблюдать за происходящим
   WordApp.Documents.Add; // Новый документ

   // Добавляем картинку из файла
   WordApp.Selection.InlineShapes.AddOLEObject(ClassType:='Paint.Picture',
      FileName:=fn, LinkToFile:=False, DisplayAsIcon:=False);

   DeleteFile(fn); // Все, картинка больше не нужна, удаляем

// во-первых, создаем OLE-объект только тогда, когда он еще не создан,
// иначе подключаемся уже к работающему:
try
   WordApp := GetActiveOleObject('Word.Application');
except
   WordApp := CreateOleObject('Word.Application');
end;

// во-вторых, при создании нового документа надо получить на него ссылку:
new_doc := wordapp.Documents.Add; // var new_doc : variant
// и потом добавлять объект именно к новому документу
new_doc.{selection.}InlineShapes.AddOLEObject(...)