Не создается диалог

[Kronos913]

Продую создать диалог в процедуре, которая не прикреплена ни к одной форме:

Procedure Test1;
var
  SD:TSaveDialog;
begin
  SD:=TSaveDialog.Create(self);
End;

И выдает ошибку компиляции, цепляясь к слову "self"

Вопрос: как создать диалог в процедуре, которая не прикреплена ни к одной форме?

[evg_m]

1. заменить self на nil
2. написать процедуру с параметром и заменить self на ПАРАМЕТР данной процедуры
3. сделать процедуру методом ("прикрепить" процедуру)

[Kronos913]

Спасибо

{Быстрый вызов SaveDialog без объекта на форме}
{ВНИМАНИЕ! Формат файла задавать без точки!! Например, 'txt'}
Function FastSaveDialog(var FileName:string; const Format :string; const StartName:string=''): boolean;
var
  SD:TSaveDialog;
  s:string;
begin
  SD:=TSaveDialog.Create(nil);
  s:=AnsiUpperCase(Format);
  SD.Filter:=s+'|*.'+Format;
  If not(StartName='') then SD.FileName:=StartName;
  If SD.Execute then begin
    FileName:=SD.FileName;
    result:=true;
    If not(rasr(FileName, Length(s))=('.'+s)) then begin
      FileName:=FileName+'.'+Format;
    end;
  end else result:=false;
  SD.Free;
end;

Использует функцию rasr

{Возвращает а+1 крайних символов строки}
function rasr(const s:string; const a:byte): string;
begin
 If (a<length(s)) then begin
  result:=AnsiUpperCase(Copy(s, length(s)-a, a+1));
 end else result:='';
end;

[newerow1989]

Сообщение от evg_m

заменить self на nil

Дополню: на Application, Form1
Я обычно так делаю.