如何让combobox中的内容保存到下拉列表中(10分)

如何让combobox中的内容保存到下拉列表中，我用了combobox1.items.add(combobox1.text);
结果是可以保存，但是在关闭程序在运行是，下拉列表中为空，不知为何？请各位指教。

注册表、临时文件、数据库

load()

up

那是当然的，你总得找个地方存起来吧

这个问题你好像已经问过一次了,我也已经告诉你也必须存到文本文件或INI文件中,
你不保存他只会在内存中驻留啊,这是最基本的电脑常识啊!那我给你写段代码吧,不过
这10分都要给我哦!
如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyFile: TextFile;
FPath: string;
begin
if Edit1.Text <> '' then
begin
ComboBox1.Items.Add(Edit1.text);
FPath := ExtractFilePath(ParamStr(0));
AssignFile(MyFile, FPath + 'myfile.dat');
if FileExists(FPath + 'myfile.dat') then
Reset(MyFile)
else
Rewrite(MyFile);
// Seek(MyFile, FileSize(MyFile));
Append(MyFile);
Writeln(MyFile, Edit1.Text);
CloseFile(MyFile);
end;
end;
//以下代码是程序启动时先从文件中读取已存数据
procedure TForm1.FormCreate(Sender: TObject);
var
MyFile: TextFile;
FPath, ComContent: string;
begin
FPath := ExtractFilePath(ParamStr(0));
if FileExists(FPath + 'myfile.dat') then
begin
AssignFile(MyFile, FPath + 'myfile.dat');
Reset(MyFile);
while not Eof(MyFile) do
begin
Readln(MyFile, ComContent);
ComboBox1.Items.Add(ComContent);
end;
CloseFile(MyFile);
end;
end;

end.

在FORM上放一个EDIT1,一个COMBOBOX1和一个BUTTON1(名字要一样),把代码再拷过去就行了
记得啊10分要都给我哦,我这是在凌晨2:30-2:55给你写的代码啊,我好辛苦哦,还调试了呢
55555,才10分,加点行不.555555555

alex-y 真可爱，如果没有问题studing 你应该给人家多加点分， 呵呵。 我也拿回去看看

thank you