Ошибка при заполнении TStringStream

[kakawkin]

Собственно есть функция: function get_file('get'):string;
Пытаюсь добавить значение в TStringStream:

stream: TStringStream;

stream:=TStringStream.Create('');
stream.WriteString('file='+get_file('get'));

а он мне пишет Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Не подскажите как решить данную проблему и что есть что за ошибка ?

[Lokos]

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

Собственно есть функция: function get_file('get'):string;
Пытаюсь добавить значение в TStringStream:

stream: TStringStream;

stream:=TStringStream.Create('');
stream.WriteString('file='+get_file('get'));

а он мне пишет Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

Не подскажите как решить данную проблему и что есть что за ошибка ?

Ошибка не совпадения типов, приведите код функции

[kakawkin]

Вот даже попробовал переделать под процедуру:

procedure TForm1.get_mail(i:string);
var s:string;
begin
 if i='get' then
  begin
   s:=http.Get('http://************.com/');
   mail:=Copy(s,Pos('*******.**',s)-7,17);
  end
  else
  begin
   s:=http.Get('http://************.com/');
   mail:=Copy(s,Pos('*******.**',s)-7,17);
  end;
end;


stream.WriteString('icq_oid=-2&icq_eid=0&icq_ln='+Copy(list.Text,Pos('icq_ln',list.Text)+15,64))+'&hiddenDfltFname=Имя&hiddenDfltLname=Фамилия&fname=Ашот&lname=Рудикович&email='+mail+'&password=159263AsD&password_confirm=159263AsD&b_day=13&b_month=7&b_year=1989&gnm='+Copy(list.Text,Pos('gnm',list.Text)+12,96);