Я начинающий, подскажите пожалуйста, как...

Memo1.SaveToFile('text1.txt);

string_list := TStringList.Create;
try
    string_list.Text := Edit1.Text;
    string_list.SaveToFile('text.txt);
finally
    string_list.Free;
end;

string_list := TStringList.Create;
try
    string_list.LoadFromFile('text.txt);
    Memo1.Lines.Assign(string_list);
    // Label1.Text := string_list.Text;
finally
    string_list.Free;
end;

Memo1.LoadFromFile('text1.txt);

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('SELECT [Номер телефона], [Улица], [Дом], [Квартира (комната)], [Фамилия Наименование предприятия)], [Уплотнение], [Услуги ЭАТС]');
ADOquery1.SQL.Add('FROM Абонентские_Карточки where Номер телефона =xxx');
ADOquery1.Parameters.ParamByName('xxx').Value:=DBcombobox1.text;

Buf:=DBcombobox1.text;
ADOquery1.Open;
end;

ADOquery1.SQL.Add('FROM Абонентские_Карточки where [Номер телефона] = [COLOR=Red]:xxx[/COLOR]');

ADOquery1.SQL.Add('Select [КодМарки], [Наименование], [Марка], [Наскладе], [Гарантия], [Цена]');
ADOquery1.SQL.Add('FROM Товары INNER JOIN Склад ON [Товары].[Кодтовара]=[Склад].[Кодтовара] where Марка =xxx');

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOquery1.Close;
DbcomboBox1.Enabled:=False;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('SELECT [Номер телефона], [Улица], [Дом], [Квартира (комната)], [Фамилия Наименование предприятия)], [Уплотнение], [Услуги ЭАТС]');
ADOquery1.SQL.Add('FROM Абонентские_Карточки where [Номер телефона]=xxx');
ADOquery1.Parameters.ParamByName('xxx').Value:=DBcombobox1.text;
Buf:=DBcombobox1.text;
Label1.Caption:=Buf;
ADOquery1.Open;
end;

uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp, NewDoc, WordTable: OLEVariant;
  iRows, iCols, iGridRows, jGridCols: Integer;
begin
  try
    // Create a Word Instance
    // Word Instanz erzeugen
    WordApp := CreateOleObject('Word.Application');
  except
    // Error...
    // Fehler....
    Exit;
  end;

  // Show Word
  // Word anzeigen
  WordApp.Visible := True;

  // Add a new Doc
  // Neues Dok einfugen
  NewDoc := WordApp.Documents.Add;

  // Get number of columns, rows
  // Spalten, Reihen ermitteln
  iCols := StringGrid1.ColCount;
  iRows := StringGrid1.RowCount;

  // Add a Table
  // Tabelle einfugen
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);

  // Fill up the word table with the Stringgrid contents
  // Tabelle ausfullen mit Stringgrid Daten
  for iGridRows := 1 to iRows do
    for jGridCols := 1 to iCols do
      WordTable.Cell(iGridRows, jGridCols).Range.Text :=
        StringGrid1.Cells[jGridCols - 1, iGridRows - 1];

  // Here you might want to Save the Doc, quit Word...
  // Hier evtl Word Doc speichern, beenden...

  // ...

  // Cleanup...
  WordApp := Unassigned;
  NewDoc := Unassigned;
  WordTable := Unassigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  W, Table: Variant;
  Row, Col, i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid1.RowCount, StringGrid1.ColCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.Visible := True;
end;

procedure TForm1.FormShow(Sender: TObject);
// Процедура заполнения первой колонки
var i:byte;
begin
for i:=0 to 16 do
StringGrid1.Cells[0,i]:=' TE_'+inttostr(i);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
// После заполнения табл. нажимаем кнопку для начала вычислений
var i:byte;
begin
for i:=0 to 16 do
Listbox1.Items.Add(StringGrid1.Cells[1,i]);// Я не совсем понял, что тебе надо делать с данными, потому просто написал, что бы они выводились в Listbox
end;

ExtractFilePath( ExtractFilePath('c:\directory\subdir\file.txt') );
=> c:\directory

for j:=0 to 4 do
v:=Stringgrid1.Cells[0,j];
showmessage(v);

for j:=0 to 4 do
v:=v+Stringgrid1.Cells[0,j];
showmessage(v)