ar NekiTxtFajl : TextFile; bafer : string; begin AssignFile(NekiTxtFajl, 'c:\autoexec.bat'); Reset(NekiTxtFajl); ReadLn(NekiTxtFajl, bafer); Memo1.Lines.Add(bafer); CloseFile(NekiTxtFajl); end;