[koroleva25]

Да, конечно.

Код:

procedure TForm1.Button4Click(Sender: TObject); //Проводим экспертизу
var
s:string;
begin
s:= Edit13.text + Edit14.text + Edit15.text + Edit16.text + Edit17.text + Edit18.text;
if s = '111111' then Edit21.text:= 'объект не опознан!';
if s = '000000' then Edit21.text:= 'объект не опознан!';
if s = Edit22.Text then Edit21.text:= Edit10.Text else
if s = Edit23.Text then Edit21.text:= Edit11.Text else
if s = Edit24.Text then Edit21.text:= Edit12.Text else
begin
   if max1 = v1[1] then Edit21.text:= Edit10.Text else
   begin
   //Тут надо брать числа по модулю !!!!!!!!!!!!!!!!!!!!!!!!!!
     if (abs(v1[1]) + abs(v1[2]) > (abs(v1[1]) + abs(v1[3]) then
     Edit21.text:= Edit12.Text else
     if ((v1[1] + v1[2])) < ((v1[1] + v1[3])) then
     Edit21.text:= Edit11.Text
   end;

   if max1 = v1[2] then Edit21.text:= Edit11.Text else
   if max1 = v1[3] then Edit21.text:= Edit12.Text else
end;

А кто, где какую скобку забыл, я не поняла