Синтаксические ошибки

procedure TForm6.SaveClick(Sender: TObject);
var new: boolean;
var flag: boolean;
begin
flag:=false;
if Edit1.Text='' then
begin
flag:=true;
ShowMessage('Введите код преподавателя');
Edit1.SetFocus;
Exit;
end;
str:=Edit1.Text;
for i:=1 to lenght(str) do
 if not (str[i] in ['0'..'9']) then
 begin
 ShowMessage('Код преподавателя должен быть числом');
 Break;
 end;
if not flag then with ADOTable1 do
 begin
 if new then Append;
 FieldByName('Kod_prep').AsInteger:=strtoint(Edit1.Text);
 FieldByName('FOI').AsString:=Edit2.Text;
 Post;
 new:=false;
 end;
end;
 
procedure TForm6.DeleteClick(Sender: TObject);
begin
if application.MessageBox('','Вы уверены, что хотите удалить запись?',[smbOK]):=smbok;
then ADOTable1.Delete;
end;
 
end.

var
new,flag: boolean;
i:integer;
str:string;

for i:=1 to lenght(str) do

var
btndel:integer;
 
begin
btndel:=MessageDlg('Удалить?',mtCustom,[mbYes,mbNo],0)
if btndel=mrYes then
ADOTable1.Delete;
end;