BEGIN expected but END found

[lypyotr]

Код ошибки:

[DCC Error] Unit6.pas(49): E2029 BEGIN expected but END found
[DCC Error] Unit6.pas(49): E2029 ';' expected but '.' found
[DCC Error] Unit6.pas(51): E2029 Declaration expected but end of file found
[DCC Fatal Error] Project5.dpr(5): F2063 Could not compile used unit 'Unit6.pas'
Failed
Elapsed time: 00:00:00.2

Полный код:

procedure TForm6.Button1Click(Sender: TObject);
function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
    except
      Result:=false;
    end;
  finally
    TCP.Free;
  end;

end;
end.(это выделено красным)

[Аватар]

Функцию в процедуре описали, а где тело самой процедуры?

[lypyotr]

Сообщение от Аватар

Функцию в процедуре описали, а где тело самой процедуры?

можно по подробнее? я в delphi новичок

[VAM]

У Вас должно быть что-то типа так :

procedure TForm6.Button1Click(Sender: TObject);
function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
  begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
    except
      Result:=false;
    end;
  finally
    TCP.Free;
  end;// try
  end;// function CheckInternetConnection
begin
  // используем ту которая описана выше ...
  if CheckInternetConnection 
    then ShowMessage('Мы с инетом !')
    else ShowMessage('Мы без инета :((');
end;

[lypyotr]

всем спасибо!