图片显示问题(100分)

问题：1）怎么得到一个路径（不带文件名的，这问题太简单了吧）比如得到“C:/windows/”，2）在这个路径下“如前面所示C:/windows/”，查找和edit1.text一样名称的jpg图片(也就是(edit1.text).jpg)，并且显示出来，得到的图片显示其路径，各位高手，怎么来实现？

ExtractFilePath得到一个路径
ChangeFileExt更改指定文件的扩展名
查找文件
Found := FindFirst("c:/dir/xx.jpg", Attr, SearchRec);
while Found = 0 do
begin
ProcessSearchRec(SearchRec);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
TSearchRec类型定义如下：
type
TSearchRec = record
Time : Integer;
Size : Integer;
Attr : Integer;
Name : TFileName;
ExcludeAttr : Integer;
FindHandle : THandle;
FindData : TWin32FindData;
end;

当利用FindFirst和FindNext函数找到一个文件后，利用这个类型可以获得文件的属性、大小和修改时间等信息。

1）得到路径：用ExtractFileDir（）函数，具体用法见帮助
2）显示的时候在加个TOpenDialog，还有就是把image定为width,hieght不可修改就可以了，image1.Picture.LoadFromFile()就可以了

多人接受答案了。