[Помогите!] В чём у меня проблемма в коде

[gum_classis]

Вот весь код

Цитата: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var postdata, httpdata:TStringList; begin postdata:=TStringList.Create; try httpdata:=TStringList.Create; postdata.Add('username='+Edit1.Text); postdata.Add('password='+Edit2.Text); httpdata.Text:=IdHTTP1.Post('http://kaztorka.org/auth/login',postdata); if Pos('logout',httpdata.Text)>0 then ShowMessage('Авторизовался!') else ShowMessage('Авторизация не удалась!'); finally postdata.free; end; end.

Ошибка вылазит вот тут

Цитата: end.

В чём проблемма

[Mebius]

перед end. допиши end;

[Mebius]

Цитата: Сообщение от Don^Paradox Посчитай сколько у тебя "begin" и сколько "end"

это просто невнимательность,

з.ы. юзайте РАД Студию, она за вас сама все эти мелкие штучки писать будет)

[ultrazzz]

Поставь cnwizards он подсвечивает все связки Begin и End, не ошибешься