Bizon [Off] [#] (01.08.2010 / 13:11) ஜ۩۞۩ ХуйФкедaХ ۩۞۩ஜ

procedure TForm1.Button1Click(Sender: TObject);
begin
login:= Edit1.Text;
pas:= Edit2.Text;
if (login <> '0') and (pas <> '0') then
begin

ini.WriteString('Anketa','Login', Edit1.Text);
ini.WriteString('Anketa','Pas', Edit2.Text);
end
else
ShowMessage('Аффтар лоХ');
end;