60分求 读取TXT的第一行,读完后删除TXT里的第一行!谢了!该如何处理

60分求 读取TXT的第一行,读完后删除TXT里的第一行!谢了!!!!!!!!!!!
60分求 读取TXT的第一行,读完后删除TXT里的第一行!

比如C:\1.txt


1.txt里的内容是 111
  222
  333
  444



那么我需要读到这个TXT里的111,保存到我的STRING变量里,然后删除这个TXT里的111,并且TXT第一行不要为空

这时候的1.TXT是 222
  333
  444


求代码 谢谢



[解决办法]
var
s: string;
begin
with TStringList.Create do
try
LoadFromFile('C:\1.txt');
s := Strings[0];
Delete(0);
SaveToFile('C:\1.txt');
finally
Free
end;
end;