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;   
      
   ... Knowledge comes, but wisdom lingers -- Alfred Lord Tennyson   
   ___ MultiMail/Win32 v0.50   
      
   --- Mystic BBS/QWK v1.12 A31 (Windows)   
    * Origin: Saturn's Orbit BBS * Running Mystic * Brazil (4:801/188)