[rycu44]

Код:

var
 strField:string;   i: integer; Key: Char;
procedure TForm4.Button1Click(Sender: TObject); //Создание файла .dbf
    begin
    with TTable.Create(nil) do
      begin
      DatabaseName  := 'C:\0\';//chdir1.Path;
      TableType     := ttDefault;
      TableName     := 'tmp.dbf';//Имя файла;
      with FieldDefs do
          begin
          Add('ФИО', ftString,60,false);       //Первый столбец
          Add('Кабинет', ftString,10,false);   //Второй столбец
          Add('Телефон', ftString,15,false);   //Третий столбец
          end;
try
             begin
             if (Edit1.Text=' ') or (Edit2.Text=' ') or(Edit3.Text=' ')
             then
                 begin
                 ShowMessage('Введите значения');
                 end
else
//запись данных в базу
                 close;
               Query1.ParamByName('ФИО').AsString:=Edit1.Text;      //Ошибка
               Query1.ParamByName('Кабинет').AsString:=Edit2.Text;  //Ошибка
               Query1. ParamByName('Телефон').AsString:=Edit3.Text; //Ошибка
                 Query1.ExecSQL;
                 ShowMessage('Данные успешно сохранены!!!');
                 Edit1.Text:='';
                 Edit2.Text:='';
                 Edit3.Text:='';
             end;

Админ: Не забываем про оформление кода, иначе последуют санкции!