（急）文件建立问题！！

如何在当前运行的exe文件的同目录下建立txt文件
如：
procedure Tform1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo.Lines.Add(OpenDialog1.FileName) ;
end;
end;
procedure Tform1.Button2Click(Sender: TObject);
var
list:TextFile;
begin
AssignFile(list,'list.txt');
Rewrite(list,'list.txt');
CloseFile(list);
Memo.Lines.SaveToFile('list.txt');
end;
end.
这样建立的list。txt文件是和OpenDialog1.FileName在同一个目录下，
而我呢，想让它建立在和我运行的exe文件在同一个目录下！！！
请高手们，指点一下小弟！！刚刚学习delphi，呵呵