Требуется написать блокнот на делфи. написал всё, кроме кнопки "сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном. : )

Нужно добавить компонент "SaveDialog" из вкладки "Dialogs" сначала:) Потом примерно такой код:

procedure TForm1.FormCreate(Sender: TObject);
var SaveF: TextFile;
begin
    if (SaveDialog1.Execute) then
    begin
        AssignFile(SaveF, SaveDialog1.FileName);
        Rewrite(SaveF);
        Write(SaveF, Memo1.Text);
        CloseFile(SaveF);
    end;
end;