怎样才能把我自己想要的信息写入到一个新的文本文件里面？怎样从一个文本文件里面读入数据到程序中？(50分)

就这么疑惑！

几种方法：
1、使用文件流TFileStream，具体可以查帮助
2、使用Pascal的文件操作TextFile(记录文件也可以)，AssignFile,Append, Rewrite, flush, close等等方法。

还可以是用TStrings.savetofile 和TStrings.loadfromfile

memo1.Lines.SaveToFile();
memo1.Lines.LoadFromFile();
简单实用

用StringList可以解决你的问题：
;private
IQFile:TStringList;
var
FrmIQ: TFrmIQ;
; ; ; ; ;filepath:string;
implementation

uses selfile;

{$R *.DFM}

procedure TFrmIQ.FormCreate(Sender: TObject);
begin
try
IQFile:=TStringList.Create;
Except
IQFile.Free;
end;
; ;BtnInData.Enabled:=false;
end;

procedure TFrmIQ.BtnInDataClick(Sender: TObject);//导入文本数据
var
; ;i:Longint;
; ;Content:String;
begin
; ;With IQFile,Q Do
; ;Begin
; ; ; IQFile.LoadFromFile(filepath);//文本文件所在目录
; ; ; Try
; ; ; ; ;DB.StartTransaction;
; ; ; ; ;DisableControls;
; ; ; ; ;application.MessageBox(pchar('要导入的记录为：　'+inttostr(count)+' 条'),'提示信息',mb_ok or mb_iconinformation);
; ; ; ; ;For i:=0 To Count -1 Do
; ; ; ; ;Begin
; ; ; ; ; ; Content:=strings;
; ; ; ; ; ; ........
; ; ; ; ; ; execsql;
; ; ; ; ;End;
; ; ; ; ;DB.Commit;
; ; ; ; ;Close;
; ; ; ; ;EnableControls;
; ; ; ; ;application.MessageBox('导入文件成功！','提示信息',mb_ok or mb_iconinformation);
; ; ; ; ;btnInData.Enabled:=false;
; ; ; Except
; ; ; ; ;DB.Rollback;
; ; ; ; ;Application.MessageBox('导入数据错误，请退出再试！','提示信息',MB_OK or mb_iconwarning);
; ; ; End;
End;
end;

procedure TFrmIQ.FormDestroy(Sender: TObject);
begin
Try
IQFile.Free;
Except
end;
end;
end.

INI文件

楼上的已经讲得很详细了，不过建议你还是多看一下D5自带的帮助。

多人接受答案了。