Error 105 help

these are my two procedures
can you help me find out what my problem is that is causing error 105
thanks for any help

procedure TForm2.BtnExitClick(Sender: TObject);
begin
close;
end;

procedure TForm2.BtnLoginClick(Sender: TObject);
begin
if (Username.Text='User1') and (Password.Text='guest') then writeln ('Access granted')
else writeln('failed entry')

end;

Begin

Writeln('Welcome please attempt to login but if you fail a virus will pass through your machine' , 'good luck');
readln;

end.

Hi
could you try to explain what are you trying to do. What kind of application you're are building? I'm pretty sure that this Writeln don't have to be there..

Dimiter

it was a basic login form , with those messages popping up on log-in. the messages are jokes by the way .

Hi,
Are building a form application or console application? As far as I know WriteLn is used in console applications. Seenig the other methods in your code I'm assuming that you are building a form app. Is that true? If it is you can try method ot some other message PopUp

Dimiter.