[Byy]

Простите меня пожалуйста, но я уже запутался.
Ниже приведен фрагмент кода. Сделал все как написали. получилось откомпилировать. По замыслу при нажатой RadioButton2 мне нужно чтобы
программа брала число из Edit5 и записывала в файл memoKoef.txt. При не нажатой RadioButton2 программа должна это число из файла считать и вывести в Edit5 после чего продолжить с ним работать дальше. Если набираю число с клавиатуры то все нормально считает. А указанные выше операции выполнять не хочет.


type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Panel2: TPanel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Panel3: TPanel;
Label6: TLabel;
Label7: TLabel;
Edit4: TEdit;
Panel4: TPanel;
Label8: TLabel;
Edit5: TEdit;
Button1: TButton;
Memo1: TMemo;
RadioButton1: TRadioButton;
Edit6: TEdit;
Edit7: TEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit8: TEdit;
Button2: TButton;
RadioButton2: TRadioButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure FlRead;


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Xn1:real;
V1,V2,V3,V4:real;
Vnp1,Vnp2:real;
C1,C2,C3,C4:real;
csr1,csr2:real;
K,rk,sk,rn:real;
i,p:Byte;
myFile: TextFile;
text: string;



TextC1:AnsiString;
TextC2:AnsiString;
TextC3:AnsiString;
TextC4:AnsiString;
TextCsr1:AnsiString;
TextCsr2:AnsiString;
TextSk:AnsiString;
TextRk:AnsiString;
TextRn:AnsiString;

const
Mr=35.45;
Vk=1000;
s1=0.16; {ïîãðåøíîñòü}
s2=0.11;
s3=0.09;
r1=0.14; {ïðåäåë ïîâòîðÿåìîñòè}
r2=0.08;
r3=0.06;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if FileExists('memo.txt') then
Memo1.Lines.SaveToFile('memo.txt');
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then i:=1
else i:=0;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then p:=1
else p:=0;
end;

procedure TForm1.FlRead;

begin {èíèöèàëèçàöèÿ ôàèëà, ÷òåíèå ïåðåìåííîé}
if p=0 then
begin
AssignFile(myFile, 'memoKoef.txt');
Reset(myFile);

while not Eof(myFile) do
begin
ReadLn(myFile, text);
end;
Edit1.Text := text;

end
else
Write(f,Edit5.Text);
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin