Работа со стринггрид,файлами, и мемо

[alexanderrrr]

В текстовом файле дана табличная функция у(х) табличные данные разместить в стринггрид, найти сумму макс и мин значений, результат вывести в поле мемо

наю только чтонадо использовать один TStringList для загрузки файла, а второй в цикле для заполнения StringGrid, а вот как все это реализовать...

вот что то намутил, только чувствую что это бредятина:

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
d: TStringList;
nmin, nmax: integer
begin
nmin=1;
nmax=1;
for i=1 to n
if g(i)<g(nmin) then nmin=i;
if g(i)>g(nmax) then nmax=i;
assignfile(f,'f.txt');
rewrite(f);

[Stilet]

чувствую

Какой чувствительный, однако.
Формат файла нужно знать. Если наобум отвечать то:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with TStringList.Create do begin
  LoadFromFile('f.txt');
  StringGrid1.RowCount:=count;
  StringGrid1.ColCount:=1;
  StringGrid1.Rows[0].text:=text; 
  Free;
 end;
end.

Вроде ниче не упустил...