[dobrosyn]

Всем привет. Прошу помочь мне в написании программы на Делфи.
Суть:
Надо сделать среду открытия файла и эго сохранения. (только на текстовых файлов!). А если открываеться не текстовый файл, то выводить сообщения о не верном формате.

Я написал почти все, но не могу написать одно: А если открываеться не текстовый файл, то выводить сообщения о не верном формате.

Прошу помощи. Буду очень благодарен.

Вот то что у меня есть:

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

type
TForm1 = class(TForm)
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
SAve: TButton;
Open: TButton;
TEXTOVE: TMemo;
Button1: TButton;
Button2: TButton;
procedure OpenClick(Sender: TObject);
procedure SAveClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.OpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
TEXTOVE.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.SAveClick(Sender: TObject);
begin
if SAveDialog1.Execute then
TEXTOVE.Lines.SaveToFile(SaveDialog1.FileName+'.tx t');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AboutBox.Show;
end;

end.