[Lazarus] read text file in lazarus

[Dians]

hi all, i have been watch a for a long time the growth up of lazarus , i'm
interesting but i'm still newbie.. how do i read text file in lazarus ,  i
have been looking for documentation but i have not still get it yet, i have
ever read like this :

lbIndexOpen := False;

while not lbIndexOpen do
  begin
    try
      if FileExists(FileName) then
        fStream := TFileStream.Create(FileName, fmOpenReadWrite)
      else
        fStream := TFileStream.Create(FileName, fmCreate);
      lbIndexOpen := True;
    except
      on e: Exception do
        begin
          WriteLn(E.Message);
          Sleep(500);
        end;
      end;
  end;

does that methode how to read text file ..?

thank for respone..

_______________________________________________
Lazarus mailing list
Lazarus@lazarus.freepascal.org
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus