How to overcome this error on Lazarus?

This is the error generated by Lazarus:
Compile Project, Target: C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\project1.exe: Exit code 1, Errors: 1
unit.pas(27,0) Error: Can't open resource file "C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\unit1.lfm

And this is the source I used:

procedure oneliners;

var Twriters : array[1..10] of string;
var Toneliner : array[1..10] of string;
var S : string;
var Foneline : string;
var Ch1 : char;
var Ch2 : char;
var Ch3 : char;
var Count : byte;

Begin
printf('oneh.ans');
For Count := 1 To 10 Do Begin;
write('^[[1;37m+ ^[[0;37m');
write(Twriters[Count]);
write('^[[1;30m: ^[[0;37m');
WriteLn(Toneliner[Count]);
End;
End; // show

Procedure init;

Var f1 : textfile;
var Count : byte;

Begin
fOneLine := ('F:\BBS\mmwin050\TAGLINES');
If Not fileExists(fOneLine) Then Begin
Assign(f1, fOneLine);
ReWrite(f1);
For Count := 1 To 10 Do Begin
WriteLn(f1,'Ia! Cthulhu!');
WriteLn(f1,'IGNATIUS');
End;
Close(f1);
End;

Assign(f1, fOneLine);
Reset(f1);
If IoResult = 0 Then Begin
For Count := 1 To 10 Do Begin
ReadLn(f1, Toneliner[Count]);
ReadLn(f1, Twriters[Count]);
End;
Close(f1);
End;
End; // Init

Procedure bot_bar;
Begin
printf('onen.ans');
Ch2 := ReadKey;
If Ch2 = #13 then Begin
exit;
End;
show;
End; // bot_bar


Procedure top_bar;

Var f1 : textfile;
var Count : byte;
var ch3 : char;


Begin
printf('oney.ans');
Ch3 := ReadKey;
If Ch3 = #13 then Begin
printf('oneline.asc');
Write('^[[3;3H');
inputl(s,70);
If s = '' then Begin
WriteLn('^[[1;30maborted^[[0;37m');
show;
Exit;
End;
For Count := 1 To 9 Do Begin
Count2 := Count + 1;
Toneliner[Count] := Toneliner[Count2];
Twriters[Count] := Twriters[Count2];
End;

tWriters[10]:=thisuser.name;
tOneTo 10 do Begin
WriteLn(f1,tOneliner[Count]);
WriteLn(f1,tWriters[Count]);
End;
Close(f1);
End;
show;
End; // top_bar

Procedure position;

Begin
show;
Repeat
printf('onen.ans');
ch1:=ReadKey;
case ch1 of
#0 : begin
ch1:=ReadKey;
case ch1 of
#80 : bot_bar;
#72 : top_bar;
#75 : top_bar;
#77 : bot_bar;
end;
end;
end;
until ch1=#13
end;


Begin
init;
Position;
End;

... * <- Tribble <- Cloaked Tribble
___ MultiMail/Win32 v0.50

--- Mystic BBS/QWK v1.12 A31 (Windows)
# Origin: Saturn's Orbit BBS * Running Mystic * Brazil (4:801/188)
* Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)

Rodrigo Cesar Banhara wrote to All <=-

How to overcome this error on Lazarus?

This is the error generated by Lazarus:
Compile Project, Target: C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\project1. exe:
Exit code 1, Errors: 1
unit.pas(27,0) Error: Can't open resource file "C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\unit1.lf m

And this is the source I used:

Looks like you forgot the "Uses" clause?
I would put:
uses
Classes, SysUtils;

[]'s !


Daniel Marques Fido - 4:801/190
SysOp of Eclipse BBS Union - 42:30/7
[email protected]
telnet://bbs.eclipse.net.br:2323
ssh://bbs.eclipse.net.br:2222


... A conversa do Piquet e do Senna � sem p� nem cabeca...
___ MultiMail/Win32 v0.49

--- Mystic BBS/QWK v1.12 A30 (Windows)
# Origin: �EclipsE BBS � telnet bbs.eclipse.net.br:2323 (4:801/190)
* Origin: LiveWire BBS - Synchronet - LiveWireBBS.com (1:2320/100)