delphi 路径问题，请高手指教
procedure TForm4.ComboBox2Change(Sender: TObject);
begin
if combobox2.Text='外科' then
begin
combobox3.Items.LoadFromFile('d:\外科主治医生.txt');
end
else if combobox2.Text='内科' then
begin
combobox3.Items.LoadFromFile('d:\内科主治医生.txt');
end
else if combobox2.Text='内科' then
begin
combobox3.Items.LoadFromFile('d:\内科主治医生.txt');
end
else if combobox2.Text='妇产科' then
begin
combobox3.Items.LoadFromFile('d:\妇产科主治医生.txt');
end
else
begin
combobox3.Items.LoadFromFile('d:\五官科主治医生.txt');
end;
end;
我在D盘已经建了这五个txt文件，可系统总提示找不到路径
