Проблема с LogList.Add

[mellon]

Доброе время суток.
У меня в процессе програмирования в Делфи возникла следующая проблема....
Задание: решение квадратных уравнений вкомплексных и нормальных формах
+ к этому всему нужно сделать протокол (который вызывается по клику на кнопку) в котором:
• исходные данные, введенные пользователем;
• выполняемые операции и результаты их выполнения;
• в случае возникновения ошибки в файл записывается соответствующее сообщение.

Собственно код
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Math;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button4: TButton;
Label5: TLabel;
Label1: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

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

var
Form1: TForm1;
LogList:TStrings;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a: integer;
b: integer;
c: integer;
D: integer;
x: real;
x1: real;
x2: real;

begin
if not trystrtoint(Edit1.Text,a) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка');
if not trystrtoint(Edit2.Text,b) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка');
if not trystrtoint(Edit3.Text,c) then Application.MessageBox(PChar('В поля можно вводить только цифры'),'Ошибка');
a:=strtoint(Edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:= sqr(b)- 4*a*c;

if d>0 then
begin
x1:= (-b + sqrt(d))/(2*a);
x2:= (-b - sqrt(d))/(2*a);
Edit4.Text:='x1=' + FloatToStr(x1) +' x2=' + FloatToStr(x2);
end;
if D=0 then
begin
x:=-b/(a*2);
Edit4.Text:='х='+ FloatToStr(x);

end;
if D<0 then
begin
Edit4.Text:='x1,2 =(' + FloatToStr(-b) + ' ± i * ' +FloatToStr(sqrt(-D))+ ') /'+FloatToStr(2*a) ;
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form2.Show;
Form2.Memo1.Lines.LoadFromFile('log .txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;

end.


Непонятно следующее...

Для того чтобы действия и результат записывался в файлик использую коману LogList.add (....)
LogList.SaveToFile('log.txt');
Файл лог.ТхТ создан.
не могли бы вы подсказаь что именно писть в LogList.add и в какой строчке. Спасибо.