Помещать поля таблицы БД в MEMO

[Stilet]

+Doctor.FieldByName('ID_Doctor').As Integer

Нет нет нет... В команду строковую целое так не пихай.
+Doctor.FieldByName('ID_Doctor').As String - и пусть преобразует к числу, но не окружай его ковычками, чтоб сама команда восприняла его как число.

P.S. Я а делал так - Доктор входит на комп в свой сеанс, в сеансе известен его логин, и ФИО. В БД я пишу логин, получая его из сеанса, таким образом октору не нужно выбирать себя в списке - он уже вошел в сеанс винды, вотпрога пусть оттуда логин дока и берет.
Впрочем это бы сделал я...

[ulala]

procedure TForm1.BitBtn1Click(Sender: TObject); {зарегистрировать приём}
begin
ADOQuery4.Active:=False;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('INSERT INTO Visit');
ADOQuery4.SQL.Add('(ID_Doctor, ID_Patient, VisitDate, VisitTime,Resultat,Symptoms,Diagnos)');
ADOQuery4.SQL.Add('VALUES(+Doctor.FieldByName(ID_Doctor).AsString+, +Patient.FieldByName(ID_Patient).AsString+,'+'"'+Edit2.Text+'", "'+Edit3.Text+'", "'+ComboBox1.Text+'", "'+Memo1.Lines.Text+'", "'+Memo2.Lines.Text+'")');
ADOQuery4.ExecSQL;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);  {сформировать рецепт}
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Recept');
ADOQuery1.SQL.Add('(ID_Visit, ReceptCode, Medicaments)');
ADOQuery1.SQL.Add('VALUES(+Visit.FieldByName(ID_Visit).AsString+, '+'"'+Edit4.Text+'", "'+Memo1.Lines.Text+'")');
ADOQuery1.ExecSQL;
end;

Ошибка синтаксиса (пропущен оператор) в выражении запроса +Doctor.FieldByName(ID_Doctor).AsSt ring+

[Stilet]

'VALUES(

А ковычка закрывающая где?

[ulala]

ADOQuery4.SQL.Add('VALUES(+Doctor.FieldByName(ID_Doctor).AsString+, +Patient.FieldByName(ID_Patient).AsString+,'+'"'+Edit2.Text+'", "'+Edit3.Text+'", "'+ComboBox1.Text+'", "'+Memo1.Lines.Text+'", "'+Memo2.Lines.Text+'")');

Тут все на месте кавычки

[Stilet]

Тут все на месте кавычки

Что ты говоришь... Неужели? а если еще раз присмотреться в район 7-го символа параметра метода Add?

[ulala]

ADOQuery4.SQL.Add('VALUES'(....

Missing operator or semicolon

[Stilet]

ulala

Верно. Один нужный символ ты поставил(а) а другой стер(ла)

ADOQuery4.SQL.Add(' VALUES ('
  +Doctor.FieldByName(ID_Doctor).AsString+, 
  +Patient.FieldByName(ID_Patient).AsString+','
  +QuotedToStr(Edit2.Text)+', '
  +QuotedToStr(Edit3.Text)+', '
  +QuotedToStr(ComboBox1.Text)+', '
  +QuotedToStr(Memo1.Lines.Text)+', '
  +QuotedToStr(Memo2.Lines.Text)+')'
);

Ферштеен?