Проверьте пожалуйство текст программ

[Dmitriy-e-nest]

procedure TForm1.Button1Click(Sender: TObject);
Label M1;
Var
a,b,m,t:real;
c:integer;
begin
Val(Edit1.Text,a,c);
if c<>0 then Showmessage('a не опр.');
Val(Edit2.Text,b,c);
if c<>0 then Showmessage('b не опр.');
if a>=b then
if a>0 then
if sin(b)+ln(a)/ln(10)<>0 then
m:=(1+cos(4*a+b))/(sin(b)+ln(a)/ln(10));
else
begin
ShowMessage('m не опр.');
Goto M1
End
else
Begin
ShowMessage('m не опр.');
Goto M1
End
else
if a*sqr(b)>0 then
m:=ln(a*sqr(b))/ln(10)*sin(sqr(a)*b);
else
begin
ShowMessage('m не опр.');
Goto M1
End;
if m<b then
t:=cos(m)*(exp((1/3*ln(sin(a)))-exp(1/3*ln(cos(b))));
else
if m=b then
if sin((m*m*m)*sqr(a))<>0 then
t:=sin(m*a)*(cos(m*m*m)*sqr(a)/sin(m*m*m)*sqr(a));
else
Begin
ShowMessage('m не опр.');
Goto M1
End
else if exp(sin(m))+cos(exp(a*b))>=0 then
t:=exp(sin*m)+cos(exp(a*b));
else
Begin
ShowMessage('m не опр.');
Goto M1
End
Edit3.Text:=FloatToStr(m);
Edit4.Text:=FloatToStr(t);
M1: end;
end.

[puporev]

Зачем нужна метка и goto, если можно просто написать
else
Begin
ShowMessage('m не опр.');
exit или halt
End

[]Wowan[]

Пишешь на Delphi, забуть что такое GOTO

[NOOB]

procedure TForm1.Button1Click(Sender: TObject);
Var
a,b,m,t : real;
c : integer;
begin
  Val(Edit1.Text,a,c);
  if c<>0 then Showmessage('a не опр.'); // может здесь тоже выход (Exit) поставить
  Val(Edit2.Text,b,c);
  if c<>0 then Showmessage('b не опр.'); // может здесь тоже выход (Exit) поставить

  if (a>=b) and (a>0) and (sin(b)+ln(a)<>0) then
    m:=(1+cos(4*a+b))/(sin(b)+ln(a)/ln(10))
  else
    if (a<b) and (a*sqr(b)>0) then
      m:=ln(a*sqr(b))/ln(10)*sin(sqr(a)*b)
    else
    begin
      ShowMessage('m не опр.');
      Exit;
    End;

  if m<b then
    t:=cos(m)*(exp(1/3*ln(sin(a)))-exp(1/3*ln(cos(b))))  // лишняя скобочка "("
  else
    if m=b then
      try
        t:=sin(m*a)*(cos(m*m*m)*sqr(a)/sin(m*m*m)*sqr(a))
      except
        ShowMessage('m не опр.');
        Exit;
      end
    else
    begin
      t:=exp(sin(m){sin*m - очепятка})+cos(exp(a*b));
      if t<0 then
      Begin
        ShowMessage('m не опр.');
        Exit;
      End;
    end;
  Edit3.Text:=FloatToStr(m);
  Edit4.Text:=FloatToStr(t);  
end;

[Stilet]

Пишешь на Delphi, забуть что такое GOTO

Все равно что сказать "Пишеш на ассемблере - забудь что такое JMP"

Goto достаточно полезный оператор если его с умом применять.
Правда нужно признать что он стал редким атавизмом.

[]Wowan[]

Но с того времи как я использую ООП я ваще забыл что это такое