Не обновляется текст в Edit

[Аватар]

eval, да, но и Form2.Edit1 не должно проблем создавать

Короче гадание на кофейной гуще. Проект выложите на форум, если не секретный

[Lardes]

Vanta11a, отправь код второй формы

[Vanta11a]

Проект не секретный =) Но, т.к. время поджимало, сделал всю функциональность на одной форме, не сохранив версии с 2я формами. Ближе к ночи (по МСК) снова попробую все перенести на 2 формы, проект тоже выкину целиком.
Код второй формы ниже.

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Button_OpenFile: TButton;
    Button_SaveChanges: TButton;
    Button_SaveNewFile: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    GroupBox1: TGroupBox;
    LE_a: TLabeledEdit;
    LE_b: TLabeledEdit;
    LE_c: TLabeledEdit;
    LE_d: TLabeledEdit;
    LE_f: TLabeledEdit;
    LE_x1: TLabeledEdit;
    LE_x2: TLabeledEdit;
    LE_Accuracy: TLabeledEdit;
    procedure Button_OpenFileClick(Sender: TObject);
    procedure Button_SaveNewFileClick(Sender: TObject);
    procedure Button_SaveChangesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  fileOpened: boolean;
  g_a,g_b,g_c,g_d,eps,g_f: real;
  g_x1,g_x2, g_eps: real;
  FileName: string;
  WorkFile: TextFile;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := 'ErrorString';
  Form2.Label1.Caption := 'Error2String';
  Form2.Edit1.Text := 'ErrorString';
  Form2.Edit1.Text := 'Error2String';
end;

procedure TForm2.Button_OpenFileClick(Sender: TObject);
var tmp_string: string;
begin
  Form2.OpenDialog1.Execute();
  if (Form2.OpenDialog1.FileName <> '') then
    begin
      fileOpened := true;
      FileName := Form2.OpenDialog1.FileName;
      tmp_string := Form2.OpenDialog1.FileName;
      AssignFile(WorkFile,Form2.OpenDialog1.FileName);
      Reset(WorkFile);
      readln(WorkFile,g_x1);
      Form2.LE_x1.Text := FloatToStr(g_x1);
//      Form2.Edit1.Text := Form2.Edit1.Text + ' ' + FloatToStr(g_x1);
      readln(WorkFile,g_x2);
      Form2.LE_x2.Text := FloatToStr(g_x2);
      readln(WorkFile,g_a);
      Form2.LE_a.Text := FloatToStr(g_a);
      readln(WorkFile,g_b);
      Form2.LE_b.Text := FloatToStr(g_b);
      readln(WorkFile,g_c);
      Form2.LE_c.Text := FloatToStr(g_c);
      readln(WorkFile,g_d);
      Form2.LE_d.Text := FloatToStr(g_d);
      readln(WorkFile,g_f);
      Form2.LE_f.Text := FloatToStr(g_f);
      readln(WorkFile,g_eps);
      Form2.LE_Accuracy.Text := FloatToStr(g_eps);
      CloseFile(WorkFile);
    end
  else
    begin
      fileOpened := false;
    end;
end;

procedure TForm2.Button_SaveChangesClick(Sender: TObject);
var tmp_string: string;
begin
  if (not(fileOpened)) then
    begin
      SaveDialog1.InitialDir := GetCurrentDir;
      tmp_string := GetCurrentDir;
      Form2.SaveDialog1.Execute();
      tmp_string := Form2.SaveDialog1.FileName;
      AssignFile(WorkFile,Form2.SaveDialog1.FileName);
      Rewrite(WorkFile);
      g_x1 := StrToFloat(Form2.LE_x1.Text);
      writeln(WorkFile,g_x1);
      g_x2 := StrToFloat(Form2.LE_x2.Text);
      writeln(WorkFile,g_x2);
      g_a := StrToFloat(Form2.LE_a.Text);
      writeln(WorkFile,g_a);
      g_b := StrToFloat(Form2.LE_b.Text);
      writeln(WorkFile,g_b);
      g_c := StrToFloat(Form2.LE_c.Text);
      writeln(WorkFile,g_c);
      g_d := StrToFloat(Form2.LE_d.Text);
      writeln(WorkFile,g_d);
      g_f := StrToFloat(Form2.LE_f.Text);
      writeln(WorkFile,g_f);
      g_eps := StrToFloat(Form2.LE_Accuracy.Text);
      writeln(WorkFile,g_eps);
      CloseFile(WorkFile);
    end
  else
    begin
      AssignFile(WorkFile,Form2.OpenDialog1.FileName);
      Rewrite(WorkFile);
      g_x1 := StrToFloat(Form2.LE_x1.Text);
      writeln(WorkFile,g_x1);
      g_x2 := StrToFloat(Form2.LE_x2.Text);
      writeln(WorkFile,g_x2);
      g_a := StrToFloat(Form2.LE_a.Text);
      writeln(WorkFile,g_a);
      g_b := StrToFloat(Form2.LE_b.Text);
      writeln(WorkFile,g_b);
      g_c := StrToFloat(Form2.LE_c.Text);
      writeln(WorkFile,g_c);
      g_d := StrToFloat(Form2.LE_d.Text);
      writeln(WorkFile,g_d);
      g_f := StrToFloat(Form2.LE_f.Text);
      writeln(WorkFile,g_f);
      g_eps := StrToFloat(Form2.LE_Accuracy.Text);
      writeln(WorkFile,g_eps);
      CloseFile(WorkFile);
    end;
end;

procedure TForm2.Button_SaveNewFileClick(Sender: TObject);
begin
  fileOpened := false;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
//  Form2.Edit1.Text := '***';
end;

end.

[Lardes]

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := 'ErrorString';
  Form2.Label1.Caption := 'Error2String';
  Form2.Edit1.Text := 'ErrorString';
  Form2.Edit1.Text := 'Error2String';
end;

В общем, не понятно каким образом у тебя компилируется выше указанный код, эти компоненты в юните я не вижу. Может я и ошибаюсь, но все же стоит их добавить в форму, как считаешь?

    Button_OpenFile: TButton;
    Button_SaveChanges: TButton;
    Button_SaveNewFile: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    GroupBox1: TGroupBox;
    LE_a: TLabeledEdit;
    LE_b: TLabeledEdit;
    LE_c: TLabeledEdit;
    LE_d: TLabeledEdit;
    LE_f: TLabeledEdit;
    LE_x1: TLabeledEdit;
    LE_x2: TLabeledEdit;
    LE_Accuracy: TLabeledEdit;

А что за странные TLabeledEdit'ы?