AnsiString fName=ExtractFilePath(Application->ExeName)+"dummy.txt";
AnsiString dt;
TStringList *sl= new TStringList();

sl->LoadFromFile(fName);

dt=sl->Strings[0]; //1行目

ShowMessage(dt);

sl->Free();

>>191
TFileStreamばかりにらめこしてまつた。このへんはVCLに慣れてないととっさには出てきませんかね？